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MarcGIANEHI 1ère partie 


Valable pour CPC 

664, 464 et 6128 


Pour tous ceux qui aiment 
pas réfléchir en programmant 
les utilitaires tels que les 
multiples gestion de fichiers, ce 
programme est le bienvenu et, 
de plus, évite de s'occuper des 
sauvegardes et chargements 
toujours critique lorsqu'on les 
oublie. Nouveau !! On gère 
aussi des fiches minitel... ! 


3 - La présentation doit être soignée 
pour une utilisation agréable. 


Avant de passer à l’étude de la con¬ 
ception et au mode d’utilisation, je vais 
brièvement vous expliquer l’évolution de 
la conception. 

Ma première idée de faire un program¬ 
me débouchant sur une série de fichiers 
pré-installés sur disquette, représentant 
chacun une lettre de l’alphabet. En y ajou¬ 
tant une page mémoire pour y mettre des 
informations personnelles, cela ressem¬ 
blait à un agenda de poche. 

Mais l’utilisation s’avérait délicate. 
Ceux qui l’ont testé me l’on rendu avec 
l’idée qu’il faudrait faire des fichiers thé¬ 
matiques, que chacun pourrait ouvrir et 
fermer à volonté. J’ai donc crée un fi¬ 
chier d’initialisation avec compteur, créa¬ 
tion et effacement automatique. 

Plus tard, j’y ajoutait une gestion des 
données MINITEL, progrès oblige, et une 
page d’informations générales. 

A ce moment, mon programme s’est 
planté. Les calculs de place mémoire que 
j’avais fait s’avérait faux. Lorsque je char¬ 
geais un fichier complet de 14 Ko, j’avais 
un superbe «MEMORY FULL». J’avais 
simplement omis de compter l’espace mé¬ 
moire réservé par les instructions «DIM». 
C’est pourquoi ce programme est main¬ 
tenant en deux parties. 

La dernière chose faite a été de faire 
une présentation du «menu général» par 
page écran grâce à l’utilisation de BANK- 
MANAGER. Tous ne possédant pas le 
lancement automatique paru dans CPC. 
J’ai modifié la version CPM et je l’ai in¬ 
troduite au listing, sans modifier les en¬ 
trées mémoire pour éviter les manipula¬ 
tions toujours trop nombreuses dans ces 
cas là. 


D ans l’encart réservé aux program¬ 
meurs il est toujours demandé de 
ne pas envoyer d’annuaire, scrabble,... 
etc, la rédaction croulant sous les envois. 
Alors pourquoi un tel programme ici ? 

Je l’ai fait pour une personne n’ayant 
pas le bagout de la programmation et qui 
voulait utiliser son ordinateur sans se «cas¬ 
ser la tête». En présentant un autre pro¬ 
gramme à la rédaction, celui-ci a paru 
intéressant par sa conception, je vous le 
propose donc. 

Je suis parti, en effet, sur une utilisa¬ 
tion des plus simplifiée d’un tel program¬ 
me : 

1 - Toutes les erreurs de saisie doi¬ 
vent être traitées de façon à éviter le ON 
ERROR GOTO traditionnel, qui efface 
tout le travail effectué si jamais il est mis 
en œuvre. 

2-Les sauvegardes et les charge¬ 
ments de fichiers doivent être automati¬ 
ques, toujours dans le but d’éviter les er¬ 
reurs de gestion des fichiers. 



A r La conception 

• ♦ 


1 - La gestion des fenêtres 

A priori cela semble le plus facile. 
La gestion des fenêtres du C.P.C. est un 
peu lourde : si on utilise toutes les res¬ 
sources de notre ordinateur, il nous reste 
5 fenêtres graphiques ce qui est peu. J’ai 
donc fait une routine BASIC qui permet 
de gérer un nombre infini de fenêtres à 
partir d’un seul canal, ici le canal 1. Il 
est très facile pour chacun de modifier, 
suivant ses goûts, l’encadrement de cette 
fenêtre. 

Cette routine se compose de deux par¬ 
ties, la mise en place et l’effacement 

A la mise en place, on crée deux fe¬ 
nêtres, l’une sur l’autre, la première ser¬ 
vant à l’encadrement, la deuxième, ré¬ 
duite d’une matrice de chaque côté, au 
texte. 

L’effacement du texte se fait par 
«CLS#1», l’effacement total se fait par 
appel d’une routine d’effacement, ligne 
180. 

Cette routine est un sous-programme, 
pour laquelle il faut désigner les quatre 
paramètres de dimension (gauche, droite, 
haut, bas) et les trois paramètres de cou¬ 
leur (fond, texte, graphique) avant de l’ap¬ 
peler par un gosub. 

La routine d’effacement remet sim¬ 
plement la couleur de fond de base à partir 
des données de dimension en cours. On 
ne retrouve donc pas les fenêtres précé¬ 
dentes. 


3 





2 - La procédure d’écriture 

en double hauteur 

Elle est tirée du programme «géné¬ 
rateur de menus» de Gaétan Bourrée paru 
dans CPC n® 25, mais elle peut être rem¬ 
placée par celle de votre manuel. 

3 - Les menus 

Ds utilisent Tinstruction «INSTR» que 
Michel Archambault nous avait décrite 
dans l’un des ses articles. La formule d’at¬ 
tente à la ligne 1250 ne peut être chan¬ 
ger. Pas de «CALL &BB06» ou autre for¬ 
mule sinon plantage ! ! 

4 - Sauvegarde et chargement 

des fichiers 

Ces procédures sont classiques. Les 
fichiers sont indicées (nbfic, nbfich, nbfi = 
nombre de fiches) afin d’en déterminer 
leur longueur. Chaque fois que l’on veut 
créer un nouveau fichier, celui-ci est 
d’abord inscrit dans un fichier d’initiali¬ 
sation (INIT.ANN), puis il est ouvert sur 
la disquette avec un indice 0. Lorsqu’on 
veut le supprimer, l’opération inverse est 
faite. 

A l’écriture, l’instruction «WRITE» 
a été préférée à «PRINT» pour un gain 
de place en mémoire évident. 

Mais, à cause de cela, la procédure 
de tri, méthode de substitution, a été faite 
en plusieurs parties. La sélection se fait 
sur le premier champ enregistré, les au¬ 


tres étant échangés un par un lorsque le 
premier fait lui-même l’objet d’un échan¬ 
ge. Rassurez-vous, cette routine reste très 
rapide. Attention ! La place mémoire étant 
un peu juste, un fichier complet de 14 Ko 
ne peut être chargé, à condition d’avoir 
supprimé tous les REMs. Mais je suis sûr 
que vous n’utiliserez jamais un fichier 
de 14 Ko. 

On peut gérer 10 fichiers de 40 fi¬ 
ches, chaque fichier occupant 14 Ko s’il 
est rempli complètement. 

Chaque fichier est erasé après son uti¬ 
lisation pour laisser la place au suivant. 

5 - Lancement automatique 
de BANKMANAGER 

« 

Les lignes 21 à 27 utilisent la routine de 
lancement de BANKMANAGER de 
CPM. J’ai supprimé toutes les lignes de 
contrôle des erreurs pour ne garder que 
la routine de lancement qui gère auto¬ 
matiquement la place de l’entrée mémoire 
en fonction de l’Himem. 


B - L'utilisation 


Le programme se divise en 2 parties, 
«ANN» et «ANNl», fonctionnant par 
chaînage. 

ANN gère l’annuaire téléphonique et 
la fin de programme. ANNl gère l’ac¬ 
cès MINITEL, l’impression des fiches et 
l’impression des adresses sur envelop¬ 
pes, les informations. 


Tout est expliqué au fur et à mesure 
que le programme se déroule. Toutefois, 
il est bon de demander la page d’infor¬ 
mation à la première utilisation pour l’ini¬ 
tialisation. En effet, il faut ouvrir les pre¬ 
miers fichiers INIT et MINITEL. La pro¬ 
cédure est expliquée dans les pages in¬ 
formations. Toutefois, vous devez pro¬ 
céder ainsi : 

Chargez "ANN" parLOAD"ANN. 
BAS" 

Faites GOTO 2400 et ne tenez pas comp¬ 
te des messages d’erreurs. 

Chargez "ANNl" par load"ANNl. 
BAS" 

Faites GOTO 3100 et après le message 
d’erreur éventuel relancez l’ensemble par 
RUN"ANN.BAS" 

1 - L’annuaire téléphonique 

Tout se gère automatiquement, sau¬ 
vegarde et chargement des fichiers, inu¬ 
tile de vous en faire. On peut ouvrir et 
supprimer un fichier, créer, modifier, sup¬ 
primer une fiche, les fiches étant clas¬ 
sées par ordre alphabétique et indicées 
automatiquement II manque juste la fonc¬ 
tion recherche, mais, est-ce bien utile ici ? 

2 - L’accès MINITEL 

Le fonctionnement est identique à 
l’annuaire. On gère 20 fiches présentées 
à l’écran 2 par 2. 
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Je joins à cet envoi, mon règlement de 90 F au nom dé : 

EDITIONS SORACOM - La Haie de Pan - 35170 BRUZ. 
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3 - L’impression 

On peut imprimer une fiche complète, 
suffisamment petite pour être mise dans 
un portefeuille. On peut aussi imprimer 
une adresse sur une enveloppe dont on a 
choisi le format (moyen, grand). 

4 - Les informations 

Elles sont utiles pour démarrer le pro¬ 
gramme. 


5 - Quelques modifications 

a) - Le programme est présenté dans 
sa version avec T utilisation de BANK- 
MANAGER pour la présentation de la 
page du «menu général». Pour ceux qui 
ne veulent pas de cette version ou qui ne 
la possèdent pas, les explications sont 
fournies tout au long du listing par des 
REMs, afin de pouvoir apporter les mo¬ 
difications nécessaires. 

Pour les possesseurs de 464, il faut 
modifier les DRAWs, les PLOTs et les 
ouvertures et fermetures de fichier. 

b) - L’effacement de l’écran avant cha¬ 
que menu: c’est possible, dans la version 
sans utilisation de BANKMAN, si vous 
le désirez, en plaçant un «CLS» ligne 
1025, et en n’oubliant pas de faire appel 
au menu par cette ligne chaque fois que 
cela est nécessaire. 




10 ’annuaire->ann >LA 

15 ’ Glanetti Harc - deceibre 1989 >LF 
-tel: 99324582 

20 *Si vous n’utilisez pas BANKKAN >LB 
ne tapez pas ou lodifiez en suivant 

les couentaires les lignes possed 
ant en REH le signe 

21 SYHBÛL AFTER 256:acy=HIHEH-15:HE >QV 
HORY ■cy-l’ii 

22 RESTÛRE 27:FÛR p=icy TO acy^BiR >ND 
EAD p$:P0KE p,VAL("fc’'+pl):NEIT’H 

23 at=0:CALL icyyàal’iv , >NZ 

24 HEHORY ■cyn5:icy=HlMEH-A524’t» >AC 

25 HEHORY acy-LLOAD «bankaan.binV >LV 


c) - Suppression des REMs et des 
blancs du basic : il est conseillé de sup¬ 
primer tous les REMs, pour gagner de la 
place mémoire, celle-ci étant nécessaire 
lors de l’utilisation de fichiers complets. 
Dans ce cadre, ce programme a été fait 
en supprimant complètement les blancs 
du basic. Pour l’instant tapez «POKE 
&AC(X),255» puis «ENTER» avant la 
frappe du listing pour obtenir ce résul¬ 
tat. (Voir aussi les rubriques «TRUCS 
ET ASTUCES» de CPC). 

d) - Une dernière chose : n’oubliez 
pas de modifier les lignes 4120 et 4130 
du listing «ANNl» en fonction de la nu¬ 
mérotation que vous aurez adopté. 


6 - Liste des variables : 


mcy 

: valeur de 

HIMEM dans la 
routine de 
lancement 
BANKMAN 

g, d, h, b 

: valeur gauche, 
droit, haut, bas de 
bords de fenêtre 

cpa, cte, cgr 

: couleur papier, 
texte, graphique 
des fenêtres 

dh, dh$ 

: double hauteur 

nbc 

: nombre de 
caractères 

nbfic 

: nombre de fiches 
dans un fichier 

fie 

: numéro de fiche 


nbfic 

: nombre de fichiers 

fich 

: numéro du fichier 
dans le fichier 
INIT 

nm$ 

: nom 

pnm$ 

: prénom 

adl$, ad2$,ad3$ 

: adresse 

tell$, tel2$ 

: téléphone 
domicile et travail 

renl$ à ren6$ 

: renseignements 

nmfichS 

: nom de fichier 

app$ 

: numéro d’appel 
MINITEL 

cod$ 

: code d’appel 
MINITEL 

serl$, ser2$, ser3$ 

: service rendu 


MINITEL 

cle$ 

: clé d’accès 
MINITEL 

nfi 

: nombre de fiche 
MINITEL 

fi 

: numéro de fiche 
MINITEL 

XX, tav, lop 

: positionnement 
impression 
d’enveloppe 

tet$ 

: en-tête d’adresse 
en impression 

• ”c’' précédant ces 

variables est utilisé 

dans la séquence de tri. 


J’espère maintenant que vous ferez 
une bonne utilisation de ce logiciel. Si, 
malgré tout, vous avez quelques problè¬ 
mes vous pouvez toujours me contacter 
puisque mes coordonnées sont incluses 
dans le programme. 


-- 

■cy’»» 

26 CALL ■cy’t« >YG 

27 DATA E,FF,CD45,B9,EB,DD,66,1,DD >VJ 
,6E,0,73,23,72,C9’i« 

30 GOTO 290 >TC 

40 ’- >LD 

50 ’routine fenetre >LE 

60 >LF 

70 ’Hise en place >LG 

80 »============= >LH 


'^0/VlND0UiLg,d,h,b:PAPERIl,cpa:PEN >UQ 
ILcte:CLSIl 

MOO y=((b-hM)«16)-2:x=((d-gH)»l6) >CL 
-2 

'110 HOVE((g-l)n6)n,400-(b«16)n,c >EF 
-120 DRAVR 0,y:DRAUR x,0:DRAUR 0,-y: >ND 


DRAVR-x,0 

M30 HOVER 0,2:DRAyR i-2,0:DRAyR 0,y >EK 
-2 

-140 H0VER-6,-4:DRAyR-(x-12),0:DRAyR >NT 
0,-<y-i2) 

-150 yiNDOyil,gU,d-l,hn,b-l:CLSIl: >KC 
RETURN 


160 ’effaceaent >RH 

170 *========== >RJ 

^IJO/y I NDOy 11, g, d, h, b : PAPER! 1,0 : CLSI >PX 
1:RETURN 

190 ’- >TA 

200 'procédure double hauteur >RC 

210 ’ixfxxxifiiifixiixxxixxxf >RD 

\mjm dh=l TO LEN(dh$):c=HlHEH+D >HP 


8x(ASC(HlDI(dhLdh,l))-32):SYNB0L 2 
53,0,PEEK(c),PEH((c),PEEK(cU),PEEK 
(cU),PEEK(c+2),PEEK(c+2),PEEK(c+3) 
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:SYHBOL 252,PEEK(ci3),PEEK(cH),PEE 
K(cM), PEEK(c45), PEEK(c^5), PEEKCc^ô 
),PEEK(c46),0 

''H m, LOCATEI l,i,y;PRllfril, CHRI ( 253) >DE 
^l240jL0CATEi1,i,y41:PRINTÎ1,CHRI(252 >EY 
) 

^ 250 x::i4l:S0UND l,50tdh,i2:N£n dh: >LQ 
RETURN 


260 ».- >RJ 

270 'initialisation >RK 

2B0 §««§««« >TA 

290 CLEAR:CLEAR INP(JT:NODE 1:B0RDER >n 
0:1NK 0,13:INK 1,0:INK 2,25:INK 3, 
13:SYHB0L AHER 32'§« INK 3,10 
300 'routine azerty >RD 

310 »============== >RE 

"^320 SYHBOL 64,56,4,120,i2,124,140,1 >CH 
16 

^330 SYHBOL 91,24,36,36,24 >TD 


340 SYHBOL 92,0,0,60,102,96,102,60, >BA 
8 

350 SYHBOL 93,60,32,60,36,36,60,4,6 >CE 
0 

360 SYHBOL 123,28,32,60,102,126,96, >CZ 
60 

370 SYHBOL 124,56,4,102,102,102,102 >DQ 
,62 

380 SYHBOL 125,56,4,60,102,126,96,6 >CL 
0 


390 SYHBOL 126,102,204 >QC 

400 GOSUB 1470:G0SUB 530:ùSCREENSVA >NR 
P,1,2:INK 3,10:H0DE i:GOTO 590'«i n 
e garder que GOSUB 1470 

500 '.-. >RF 

510 ’encadreient Initial >BG 

520 ’itioiiiiriiitiffii >BH 


530 UIND0UI0.2,39,2,24:PAPERt0,0:CL >GG 
SIO 

540 PLOT 2.2,1:DRAUR 0,394:DRAUR 63 >JE 
4,0:DRAUR 0r394:DRAUR-634,0 
'^550 PLOT 4,4,2:DRAUR 0,380:DRAUR 63 >VB 
0,0:DRAUR 0,-390:DRAWR-630,0:RETURN 


’«» supprlaer RETURN 

560 '.— >TB 

570 'soft de présentation >TC 

580 '«iiiXiXiiXiiXXiffXiX >TD 


590 GOSUB 530:g=10:d=31:h=3:b=16:cp >GD 
a=3:cte=l:cgr=2:G0SUB 90*»» supprii 
er GOSUB 530 

\600 SOUND 1,284,12:L0CATEI1,1,1:PRI >LP 
NTIl,"ADRESSES - TELEPHONE* 

'610 SOUND 1,142,12:L0CATEI1,4,3:PRI >EA 
NTIl,"RENSEIGNEMENTS" 

'620 SOUND 1,71,12:L0CATE#1,3,6:PRIN >KA 
TH, "présentation de* 

'630 FOR 1=9 TO 12;L(K:ATEI1,4, 1:PRIN >EB 
TI1,CHR$(24);* *;CHR4( 

24):NEXT 1 

640 PAPERtl,l:PENIl,2:dhl=*BUREAUTH >HL 


EQUE":x=S:y=10:G0SUB 220 
''65OL0CATE 16,17:PRIMT*<*;CHR4(24): >BI1 
"ESPACE";CHR»(24);">" 

''660 LOCATE 13,21:PRiNT*A chaque aen >K6 
u" 

'' 670 LOCATE 5,23:PRINT*Salsle direct >UL 
e par la ■ajuscule*:SOUHD 1,284,12: 


CALL tiBBOe 

1000 'r-—. >ID 

1010 'aenu general >X£ 

1020 ’iiififMdii >IF 


■^1030 g=7:d=34:h=8:b=20:cpa=l:cte=3: >UP 
cgr=2:G0SUB 90 

''1040 L0CATEI1,1,1:PRINTI1,"» HENU P >PK 
RINCIPAL* 

V1050 PLOT 112,252,0:DRAW 364,252 >YL 
'•1060 LOCATE#!,3,3:PRINTI1,*_ woule >0Y 
Z- vous :" 

M070 RESTORE 1110:FOR 1=5 TO 10:REA >EN 
D a#:L0CATEI1.2,i:PRINTtl,a#;:NEn: 
SOUND 1,142,12:G0T0 1080’» supprla 
er GOTO 1080 

1075 CLS:ùSCREENSHAP,l,2’«« >VN 

■'1080 LOCATE 16,17:PRINT CHR$(21>;FR >DH 
E(»*);CHR$(6):G0SUB 1250 
MÛ90 r=INSTR("ICHAPR",r#) >VX 

1095 ùSCREENSUAP,l,2’x« >QU 

'‘1100 ON r GOSUB 3030.6030.4030,9030 >UG 
,9O3O,651O:GOT0 1075'reaplacer G 
OTO 1075 par GOTO 1030 
^1110 DATA *> Initialiser l’annuaire >FD 
*,*» Consulter un fichier*,*» Hodlf 
1er un fichier",•« Accès Hlnltel",* 

> Pages Inforaatlons',*» Revenir au 


lanceur* ' 

1200 ’. >XF 

1210 ’Sous-prograaaes >IG 

1220 ’tis>«i*t»*f«»ii >IH 

1230 'Attente >XJ 

1240 '======= >IK 

•'1250 r$=*":r#=UPPER#(INIŒY#):IF r#= >NB 
**THEN 1250’Attention ne pas change 
r la foraule 

•« 1260 RETURN >FC 

1270 'continuation, arrêt >YC 

1280 »=================:: >YD 


\1290 g=6:d=35:h=22:b=24:cpa=3:cte=2 >VV 
:cgr=l:GOSUB 00 

'NiOOO SOUND 1,71,12:L0CATEI1,1,1:PRI >FB 
NTIl,*Voulez-vous continuer (0/N)?* 


''1310 GOSUB 1250 >UF 

•a320 r=INSTR(*ON*,r#) >QN 

^1330 RETURN >FA 

1340 ’fenetre sélection >YA 

1350 >YB 


"'1360 g=4:d=37:h=21:b=24:cpa=l:cte=0 >VN 
:cgr=2:G0SUB 90 


^^70 LOCATEIl,l,l:PRlMTIl,*Selectlo >PH 
n -> ■•ESPACE”*:L0CATEil,l,2:PRINT#l 
,"Choix -> "ENTER"* 


"1380 RETURN 

1390 ’fenetre aodlflcatlons 


1400 




>FF 

>YF 

>XH 


i41QI g=2:d=39:h=21:b=24:cpa=3:cte=2 >VH 


:cgr=l:GOSUB 90 

^1420jSQÜND l,71,12:PENil,l:L0CATEil >RG 
,7:i:PRlNTIh"»Hodification à faire 
»":PENI1,2 

M430 L0CATE41,l,2:PRINTfl,"> VSTRI >AY 
NGI(nbc,V)îRETURN 

1440 'diiensionneient des tableaux >YB 
1450 »============================ >YC 

■ '146() ERASE nat,pna*.adl#,ad2$.ad3#v^ >NL 
tel 14, tel2#, renU, ren2#, ren3#, ren4# 
,ren5t,ren64 

■;1470]DIH nn4(40),pna$(40),adl#(40), >UQ 
ad2#(40),ad3»(40),tell»(40),tel2l(4 
0),rent$(40),ren2$(40),ren3#(40),re 
n4#(40),ren5$(40),ren6#(40) 


RETURN >FG 
1^/patience >YG 
1500 >XJ 


''^l(^g=ll:d=30:h=21:b=24:cpa=l:cte= >WY 
l5Tcgr=2:GOSüB 90 

»1520j dh#=*PATIENCE ! S.V.P*:x=2:y=l >ZB 
':GOSUB 220:RETURN 


1530 ’fenetre choix >YB 

1540 '=====rr::îrz: >YC 

7>1550/SOUND 1,71,12:L0CATE 10,17:PRI >AC 
NT CHR#(24);* "Suite" ou "Choix" *; 
CHR*(24):RETURN 

2000 '. >XE 

2010 'Sauvegarde d'un fichier >ÏF 

2020 *»»f«t»iiiff«»»f»»»»»»«f >ÎG 


'' 2030^OPENÛUT naf 1 chl ( f 1 ch)+\ ann* >DE 
|040/yRITEI9,nbfic:IF nbfic=0 THEN >ZF 
^CLOSEOUT:GOTÛ 2100 

''•^50 IF nbflc>l THEN GOSUB 2120*-> >YL 
l^rocedure de tri 

^2060 /FOR fic=l TO 40 >HJ 
\2a7û/IF nal(fic)=*»*'THEN 2090 >VH 
\^80i^ yRlTEt9,nil(fic),pnil(fic),adl >QR 
'I(fic).ad2l(fic),ad3l(fic),telll(fi 


c),tel2l(fic),renl$(fic),ren2l(fle) 

♦ ren3$(fie)» ren4l(fie),renSI(fie),r 
en6$(fle) 

’-209ÔyNEÏT:CLÛSEÛUT >P2 

/ÏÏÔby PRINT CHR$(21):ùERA,naflch#(fi >HR 
ch)+*.balt":PRIHT CHR#(6) 

^21U)yl RETURN 

îî2b 'Tri >XH 

2130 ’=== >XJ 

\2140, FOR flc=2 TO nbflc >QF 

'‘glM/FOR j=flc TO 2 STEP-1 >TQ 

' 2160. IF na»(j-l)=na»(i)THEN GOSUB 2 >EU 
200 
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>2170 J F ni$(j-l»ni»(J)THEN GOSUB 2 >VU 
*23ÔELSE GOTO 2190 

» 2180,HEIT J >VH 

\2190; WEIT fic:RETURN >QX 

»2200 IF pnit(1-l)>pna»(j)THEN 2230 >NX 
EÏæ RETURN 

2210 'Echange des fiches >IH 

2220 •================== >IJ 

\223âjcïUil=nil(1-l):TMi$(J-l)=T«l(J): >PT 
niK j)=cnal 

'^^40 cpT«$=pnal(j“l);pnil(1“l)=pi«$ >YU 
(J);pnil(J)=cpnil 

^225û>cadl$=adl$(j-l):adll(,M)=adl$ >VA 
(j);adl$(J)=cadl$ 

^-2^;cad2$=ad2l( j-l) :ad2l( J-l) =ad2$ >VH 
(jhad2l(j)=cad2i 

^2^7Û.cad3$=ad3$(1-1):ad3l(1-l)=ad3$ >VQ 
(j):ad3$(1)=cad3$ 

'^2280jctelll=telU(l-l):tell$(j-l)=t >EH 
erri(j):lelU(j)=cteli$ ^ 
'2290ictel2l=tel2$(J-l):tel2l(1-l)=t >EW 
eT2l(j):tel2$(j)=ctel2$ 

' 2300jcrenll=renll(1-l):renll(i-l)=r >EF 
enl$(J):renl$(j)=crenll 
"^310 jcren2l=ren2$(}-1 ) :ren2l( j-1 ) =r >EN 
en2l(J):ren2l(j)=cren2$ 

' ^32|ycren3l=ren3$(1-i):ren3l(j-l)=r >Ey 
en3l(j);ren3l(J)=cren3$ 

2330 cren4l=ren4$(.l-i):ren4$(j-l)=r >ED 

en4$(1);ren4l(J)=cren4l 

23^ ) cren5l=ren5$( J-1 ) :renSK j-1 )=r >EL 

enSI(J):ren5$(j)^crenSI 

2350, cren6l=ren6$(j-l):ren6l(1-l)=r >EU 

en6$(j):ren6$(J)=cren6$ 

^^2360 RETURN 

2400 '.-.. 

2410 'Sauvegarde du fichier INIT 

2420 ’ilfiiffiXfiiiitXXtlfXiiiXI 

^430 OPENOUTMNIT.ann" 

2440 yRITEI9,nbfich;IF nbfich=0 THE >JY 
N 2470 

2450 FOR i=l TO nbfich >QT 

2460 yRITEI9,nifichl(i);HEXT >YU 

2470yCLÛSE0ÜT >ZD 

24^[PRINT CHRI(21):ùERÂ,*INIT.bak" >FG 
:PRINT CHfil(6):RETURN 

2500 -... >XK 

2510 'Chargeaent d'un fichier >YA 
, 2520 'XXXXXtiiXiiXXiiXiiiXXXX >YB 

^2530yg=3:d=38:h=22:b=24:cpa=3:cte=2 >VT 
;cgr=l:GÛSUB*^90 

‘^gWOtSOüND l,7ia2:L0CATEIl,2,l:P8l >Yy 
Nfri,CHR$(18);''Nuaéro du fichier à 
charger : 

'^50 L0CATEtlp32,l:lNPUTIl,''",fich: >YC 
IF fich>10 THEN 2540 
^560 GOSUB 180:GOSUB'l510:fic:=0 
'^570i GOSUB 1460 


>FE 

>ÏJ 

>XK 

>YA 

>uy 


N2590JlNPüTI9,nbflc:IF nbfic=0 THEN >yR 
CLOi^El N: RETURN 

2600jF0R fic=l TO nbflc >QF 

^^10> 1NPUTI9, ml (f le) P pmi( f le), adl >DC 
I(fic),ad2l(fic)pad3l(fic)ptelll(fi 
c),tel2l(fic)prenll(fic),ren2l(fic) 
,ren3l(fic)pren4l(fic)pren5l(fic),r 
en6l(fic):NEXT 

'262« CLÛSEIN:fic=nbfic * >TN 

>FE 
>YC 
>YD 
>YE 


a 


2580rOPENIN mfichKfich)4\ann" 


>zy 

>IH 

>BT 



2^'RETURN 
2800 '- 


2810 'Chargeaent du fichier INiT 
2820 'XifVliiXXXiXXiiXXXtiXiiXXX 

283ÛLX0CATE 4p5:PR!NT''Liste des fie >NH 
hiers disponibles :* 

S2840JDPEN1N"lN1T.ann" >TF 

^^^INPUTi9,nbfich;IF nbfich=0 THE >JK 
TlOCATE IpSiPRlNT"!! n'y a pas de, 
fichiers disponibles î": GOTO 2890 
2860 FOR fich=l TO nbfich >TE 

MlSy lNPUTi9pnafichl(f ich) >VE 

^2JPJL0CATE 13,6+fich:PRlNT USINGM >CP 
•";fich;;PRINT*' x ^mfichKfich):N 
EXT 

^2890 CLOSE1N:RETURN >QP 

3000 '. >XF 

3010 'Initialiser l'annuaire >IG 

3020 ’ifxxvixxxffixtixxxfxxx >XH 

^30 30j CLS;g=2;d=39;h=2:b=4;cpa=0;cte >YU 
=2:cgr=l:G0SUB 90 ' 

L0CATEIl,5,l;PRINTIl,"«-x “ I >DQ 
NITIALISATION ” *-«• 

^3050 GOSUB 2830'->Charge + liste fi >ÏD 
chier INIT 

3060 g=2;d=39;h=i9:b=24;cpa=l;cte=3 >VY 
:cgr=2:G0SUB 90 

^3070 SOUND l,142,12:L0CATEItp3,l;PR >ZH 
INTIl,"Voulez-vous : ":L0CATEI1,7,2 
:PRINTil,"x Revenir au aenu” 

' 3080 IF nbfich=0 THEN PENI1,2:L0CAT >DA 
Ellp7p3:PRlNTIl/<Suppression iapos 
sible>":PENtl,3 ELSE L0CATEI1,7,3:P 
RINTIlp"* Suppriaer un fichier" 

"3090 IF nbfich=10 THEN PENtl,2:L0CA >HC 
TEIlp7p4:PRINTilp"<0uverture iaposs 
ible>":PENIl,3 ELSE LÛCATEil,7,4:PR 
lNTIl,"x Ouvrir un nouveau fichier" 

^3100 GOSUB 1250 >yE 

‘^^3110 r=INSTR("RSO",rl) >RX 

3120 ON r GOTO 3260,3200,3130:GOTO >EU 
3070 

"3130 GOSUB 180;g=2:d=39:h=22;b=24;c >ltt1 
pa=3:cte=2:cgr=l:G0SUB 90 
* 3140 nbfich=nbfich+1:flch=nbfich >CK 
>3150 SOUND 1,71,12:L0CATEI1,2,1:PRI >NC 
NTIl,CHRI(18);:PRlNTIlp"Noa du fich 
’ 1er à ouvrir : ." 


^3160 L0CATEIl,28,l:lHPUT#l,"*,iiiflc >MY 
hXfich) 

V3170 IF LEN(iwtlch$(flch))>8 THEN 3 >EE 
150 

3180 nifichl(fich)=UPPER)(nitich«(f >YH 
lch)):GOSUB 180:G0SUB 1510:G0SUB 24 
30’->Sauvegarde INIT 
>3190 GOSUB 2O30:G0T0 30^’->Sauvega >TX 
rde fichler(lOlO) 

>3200 GOSUB 180:g=2:d=39;h=22:b=24:c >HK 
pa=3:cte=2:cgr=l:G0SUB 90 
>321fi SOUND 1.71,12:LÛCATEI1,2.1:PRI >P« 
NTtl,''Nimëro du fichier à suppriaer 


. It 
• • • 


>HD 

>FE 

>XG 

>IH 

>IJ 


3220 LOCATEI1,34,1 : l NPUTI1, " ", f i ch ; >RB 
IF fich<l OR flch>nbfich THEN 3060 
3230/GOSUD 180:.G0SUB lS10:ùERApnafi >Yy 
chl(fich)+".ann" 

^40^nafichl(fich)="":FOR fich=flch >LM 
♦1 TO nbfich:nafichl(fich-l)=nafich 
I(fich);NEXT;nb fich=nbfich-1:GOSUB 
2430'->Sauvegarde INiT 
^3250 GOTO 3030 
3260 RETURN 

4000 '-- 

4010 'Hodifier un fichier 
4020 'xtfxxftxxitxxxfxiff 
\4030^CLS: :g=2:d=39:h=2:b=4:cpa=0:et >ZF 
e=2;cgr=i;GOSUB 90 

L0CATEIl,6,l:PRIHTIl,"»-i “ H >AH 
ODIFICATION '■ t-«" 

'^4050,GOSUB 2830'->charfleHiste fich >XE 
ier INIT 

M060 IF nbfich=0 THEN RETURN >XU 

v 40JQ;GOSUB 2530'chargeaent du fichi >XD 
er deaande 

^JGOSUB 6530'lister le fichier d >XJ 
eaànde 

ls4^Qji=2;d=39;h=19:b=24:cpa=l:cte=3 >VC 
:cgr=2:G0SUB 90 • . ( 

K^fiF nbfic=40 THEN 4i50 >TP 

^l£;S0iWD 1,142,12: LOCATEI 1,3,1: PR >RG 
ÎNT#l,»Voule 2 -wous : »:LÛCATEI1,5,2 
:PRINTIlp"x Revenir au aenu princip 
al":L0CATEIl,5,3:PRINTil,"« Suppria 
er. Ajouter ou Hodifier":L0CATEIl,7 
,4:PRINTIl,"une fiche" 

4120 GOSUB 1250 


4130 


>yH 

>TK 


r=INSTR("RSAH".rl) 

4J^.0N r GOTO 4190,5030,4530,5230: >JK 
GOTO 4110 

-4150 SOUND 1,142,12:L0CATEil,3,l:PR >PU 
INTIl,"Voulez-vous : ":L0CATEI1,5,2 
:PRlNTil,"x Revenir au aenu princip 
al";L0CATEIl,5,3:PRINTIl,"« Suppria 
er, Modifier une fiche":L0CATEil,3, 
4:PENIl,2:PRINTIl,"<0uverture de fl 
ches iapossible>*:PENil,3 
M160 GOSUB 1250 >XB 
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^^4170 r=INSTR("RSH",rl) >RC 

'^4180 ON r GOTO 4190,5030,523O:G0T0 )EH 

4160 

4190 RETURN >FH 

4500 .—. >YB 

4510 ’Alouter une fiche >YC 


4520 '«liitfffvvffiviffK 


>TD 


^ 4530 jCLS;flc=flc4l;L0CATE 2,1:PR1NT >LY 
"fichier ";nifichl(fich) 

^4549 LOCATE 29,l:PRlNT"fiche ";flc >EN 
•».J^50)g=2:d=39:h=:21:b=24:cpa=l:cte=3 >VW 
:cgr=2:G0SUB 90 

^ 4560 LOCATEI1.2,1;PRINT!1,"Pressez >BP 
"ENTER" pour un titre Iong":LOCATEI 
1,3,2:PRINTtl,"(société, associatio 
n ou autre)" 

4,570 SOUND l,71,12:L0CArE 2,3:PRINT >IH 
CHR$ ( 18 ) ; "Noi : .,., A ... " : LOCATE 
7,3:INPüT"",nal(flc):na4(hc)=UPPE 
Rt(rui*(fic)) 

M580 IF LEN(ni4(flc))>ll THEN 4570 >AP 
'.^90 IF LEN(ni»(flc))=0 THEN 4630 >ZF 
‘4600 LOCATE 7,3:PRINT CHR${18);na$( >TX 
fic):GOSUB 180 

N.461Û SOUND 1,71,12:LÛCATE 20,3:PRIN >ÏK 
T"Prenoi: f;,, ":LOCATE 28,3: 

INPüT*",pni$(fic) ' 

* 4620 IF LEN(pni*(fic))>10 THEN 4610 >RG 
ELSE LOCATE 28,3:PRINT CHR4(lB);pn 
■t(tlc):GOTO 4670 

'4^ CLS#l;LÛCATEIl,5,l:PfilNTIl,"ln >RA 
scrivez ici un libéilé de":LOCATEtl 
,4,2:PRINTI1,"société, association 
ou autre* 

4640 SOUND 1,71,12:L0CATE 2,3:PR1NT >YU 
*> •;STRING»I34,".*):L0CATE 4,3:LIN 
E INPUT"*,ni»(fic):ni4(flc)=*#"rüPP 
ER$(nit(fic)) 

4650 IF LEN(na»(fic))>35 THEN 4630 >AQ 
M660 IF LEN(ni»(flc))=l THEN 4560 >ZG 
\4670 GOSUB 90:L0CATEil,3.1:PRINT#1, >PG 
"ATTENTION! Respectez les foraats": 
L0CATEI1,3,2:PRINTI1,"pour I’iipres 
sion sur enveloppe* 

'4680 LOCATE 2,5:PRIHT"Adresse : *:S >«A 
TRING»(25,*.») 

•'4690 LOCATE 12,6:PRINT STRIHG»(25,* >FH 

.") 

’MTOO LOCATE 12,7:PRIHT". *;STR1 >PB 

NG$I19,".") 

■4710 SOUND 1,71,12:L0CATE 2,5:PRINT >EQ 
•Adresse : •;CHR4(18);STRING»(25,". 
*);L0CATE 12,5:LINE lNPUT"",adl»(fi 
c) 

''4720 IF LEN(adl»((lc))>25 THEN 4710 >AH 
ELSE LOCATE 12,5:PRINT CHR$(18)jad 
l»(fic) 

>4730 SOUND 1,71,12:L0CATE 12,6:PR1N >HU 
T CHR$(18);STRING»(25,"."):L0CATE 1 


2,6:L1NE lNPüT"",ad2$(fic) 

|v4740ilF LEN(ad2$(flc))>25 THEN 4730 >AU 
ELSE LOCATE 12,6:PRINT CHRt(18);ad 
24(fic) 

'.4750,SOUND 1,71,12:L0CATE 12,7:PRIN >XF 
T CHR»( 18)";STRING»(19,".*) 
:LOCATE 12,7:LINE INPUT"",ad3$(fic) 

|\4760,'IF LEN(ad3l(fic))>25 THEN 4750 >ÂD 
ELSE LOCATE 12,7:PRINT CHRI(18);ad 
3l(fic) 

' 4770;GOSUB 180 >QG 

SOUND IJ1,12:L0CATE 2,9;PRINT >KZ 
CHR4( 18);"Téléphone doiicile : ..A 

.":LOCATE 23,9:INPUT"",tellKfi 

c) 

M790 AF LEN(telU(flc))>8 THEN 4780 >BL 


|N^/SOUND 1,71,12:L0CATE 2,10:PRIN >m 
T CHR$(18);"Téléphone travail : 

.":LOCATE 23,10:lNPUT"",tel2$( 

fie) 

Wlo/iF LEN(tel2»(fic))>8 THEN 4800 >BX 

4620|LOCATE 2,12:PRINT*Renseigneaen >QH 
ts 

'4830 FOR 1=13 TO 18:L0CATE 2,i:PHlN >HJ 
T"- ";STRING»(33,*."):NEn 
"4640 SOUND 1,71,12:LÛCATE 2,13:PRIN >RQ 
T"- •;CHR$(18);STR1HG4(33,".");LÛCA 
TE 4,13:LIHE INPUT"",renl»(fic) 

4850 IF LEN(renlt(flc))>33 THEN 484 >EJ 
0 ELSE L0CATE-4,13:PRINT CHR»(18);r 
enl$(flc) 

4860 SOUND 1,71,12;LÛCATE 2,14:PR1N >R« 
T"- *;CHR$(1B);STRING4(33,"."):L0CA 
TE 4,14:LINE lNPUT"",ren24(fic) 

4870 IF LEN{ren2»(flc))>33 THEN 486 >ER 
0 ELSE LOCATE 4,14:PRINT CHR»(18);r 
en24(fic) 

\4880 SOUND 1,71,i2:L0CATE 2,15:PRiN >RB 
T"- ";CHR$(18);STR1NG»(33,".*):L0CA 
TE 4,15:L1NE INPüT"",ren3»(fic) 

'4890 IF LEN(ren3*<flc))>33 THEN 488 >E2 
0 ELSE LOCATE 4,15:PRINT CHR»(18);r 
en34(fic) 

>4900 SOUND l,71,12:LÛCATE 2.16:PRIN >RX 
T"- ■;CHR»(18);STRING$(33,"."):L0CA 
TE 4,16:LINE INPUT"".ren4$(fic) 

4910 IF LEN(ren44<fic))>33 THEN 490 >EH 
0 ELSE LOCATE 4,16:PRINT CHR»(18);r 
en4l(tic) ' 

'4920 SOUND 1,71,12:LOCATE 2,17:PRIN >RC 
T"- •;CHR$(18);STR1NG»(33,"."):L0CA 
TE 4,17:LINE iNPUT"",ren54(flc) 

4930 IF LEN(ren5»(flc))>33 THEN 492 >EV 
0 ELSE LOCATE 4,17:PEINT CHRt(18);r 
en5$(fic) 


4940 SOUND 1,71,12:L0CATE 2,18:PRIN >RH 
T"- •;CHR4(18);STRING$(33,"."):L0CA 
TE 4,18:LINE INPüT"",ren6$(fic) 
x4950 IF LEN(ren6$(fic))>33 THEN 494 >EC 
0 ELSE LOCATE 4,18:PRINT CHR»(18);r 
en6$(fic) 

4960 nbfIc=nbflc+l:lF nbflc=40 THEN >AE 
GOSUB i51O:G0T0 2030 

|’.4970 GOSUB 180:g=5:d=36:h=21:b=24:c >UW 
pa=l:cte=0:cgr=2:G0SUB 90:L0CATEtl, 

1,1:PRINTI1,"Voulez-vous ajouter en 
core une fiche à ce fichier (0/N) 
?*;:G0SUB 1310’continuation, arrêt 
4980 ON r GOTO 4530,4990:GOTO 4970 >AQ 
'4990 GOSUB 180:GOSUB 1510:GOTO 2030 >C2 
’->sauvegarde du fichier aodifie 

5000 '-- >XH 

5010 'Enlever une fiche >XJ 

5020 ’>IK 
'5030 GOSUB 180:g=4:d=37:h=22:b=24:c >HN 
pa=3:cte=2:cer=l!G0SUB 90 

CLEAR INPUT: SOUND 1,36,15:L0CA >UN 
'TEIl,l,l:PRINTIl,CHR4(18)i"N' de la 
fiche à suppriier : ..":L0CATEI1,3 
0,l:lNPUTIl,"",flc 

5050 IF fic<l OR (ic>40 THEN 5040’- >YU 
>laisser ainsi fic>40 
5060 ni»(fic)="':pni»(flc)="":adl«( >K2 
flc)="":ad2»(fic)="":ad3$(fic)="":t 
ell»(flc)="":tel2»(flc)="":renl»(fi 
c)=*":ren2*(flc)="":ren34(fIc)="*:r 
en44((ic)="':ren5$(fic)="*:ren6$(f1 
c)="" 

I 

'SJ2D nbfic=nbfic-l:CLSIl:SOUND 1,28 >QV 
4,12:L0CATEfl,8,l:PRINTIl,"Fiche n* 

•;fic;"suppriiée":FOR att=0 TO 1000 
:NEIT 

'5080 GOSUB 180:g=4:d=37:h=21:b=24:c >CR 
pa=l:cte=0:cgr=2:G0SUB 90:LOCATEI1, 
1,1:PRINTI1,"Voulez-vous suppriier 
une autre fiche de ce fichier (0 
/N)?";:GOSUB 1310’->0/N 
*5090 ON r GOTO 5030,5100 >QT 

5100 GOSUB 180:G0SUB 1510:G0T0 2030 >CG 
'->sauvegarde fichier aodifie 

5200 ’- >XK 

5210 ’aodifier une fiche >YA 

5220 ’iifvitifdtititiii >YB 

'5230 GOSUB 180:g=4:d=37:h=22:b=24:c >HQ 
pa=3:cte=2:cgr=l:G0SUB 90 

CLEAR INPUTiSOUND 1,36,15:L0CA >XX 
TEI1,2,1:PR1HTI1,CHR4(18);:PRINTI1, 

"N* de la fiche à aodifier : ..":L0 
CATEIl,30,l:INPUTIl,"",fic:IF fic<l 
OR fic>nb(ic THEN 5240 
''5250 CLSiSOUND 1,284,10:LOCATE 2,1: >NA 
PRINT"flchier ";nafich»(fich):LOCAT 
E 29,l:PRlNT"fiche •;fic 
5260 IF LEFT»(nat(fic),l)="l"THEN L >NF 
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OCATE 2,3:P81Nr> ■;HID»(ni»(fic),2 
,34):GOTO 5280 

'^5270 LOCATE 2,3:PRINT"Moi : >JF 

lc):LOCATE 20,3:PRINT*Prenoi : ";pn 
■Kflc) 

'^5280 LOCATE 2,5: PR INT* Adresse : ":L >ÏA 
OCATE 12,5:PRINT adU(fle):LOCATE 1 
2,6:PR1NT ad2»(fie):LOCATE 12,7:PR1 
NT ad34(fle) 

5290 LOCATE 2,9:PRlNT*Téléphone doi >ZK 
Mie : *;telll(fle):LÛCATE 2,10:PR 
INT'Téléphone travail : •;tel2$(fi 
e):LOCATE 2,l2:PRlNT*Renselgneients 

• ff 

''' 5300 LOCATE 2,13:PRIMT*- ";renl»(fl >yT 
e):LOCATE 2,14:PRINT.*- *;ren2$(fic) 
:LOCATE 2,15:PR1NT"7 ";ren3$(fic):L 
OCATE 2,16:PR1NT"- ":fen4»(fic):L0C 
ATE 2,17:PR1NT"- ":ren5$(fic):LOCAT 
E 2.16:PRINT*- "iren6»(fle) 

\5310 IF LEFT»(ni»(fle),l)<>*#*THEN >FB 
5360 

^^5320 GOSÜB 1360:LOCATE 4,3:PRINT CH >QD 
R)(24);HID*(na*(fle).2);CH8t(24) 

^5330 CALL Î(BB06:1F 1NKEY(6)=Û THEN >GK 
nbe==34:G0SUB 1410:G0T0 5640 
’*'5340 LOCATE 4,3:PR1NT HID$(ni$(fle) >JD 
,2.34) 

V5350 GOTO 5410 >NA 

"5360 GOSÜB 1360:L0CATE 8,3:PR1NT CH >EF 
R$(24);M»(fle);CHR«(24) 

■^ 53/0 CALL liBB06:IF 1NKEY(G)=0 THEN >GK 
nbe=ll:GOSUB 1410:G0T0 5650 
V5380 LOCATE 8,3:PR1NT ni»(fie):LOCA >FÜ 
TE 29,3:IF pni»(fle)="*THEN PR1NT*> 
■ELSE PRINT CHR)(24);pra$(fie);CHR« 

(24) 

5390 CALL liBB06:lF IHKEY(6)=0 THEN >GH 
nbe=lO:GOSUB 1410:G0T0 5660 
<^5400 LOCATE 29.3:PRINT pn«4{fle) >AC 
^5410 LOCATE 12,5:IF adl4{fle)="*THE >MQ 
N PR1NT*>"ELSE PRINT CHR»(24);adl${ 
fie);CHR*(24) 

V5420 CALL JtBB06:IF INKEY(6)=0 THEN >GN 
nbe=25:GOSÜB 1410:GOTO 5670 
'.5430 LOCATE 12,5:PRINT adl4(fic):L0 >HK 
CATE 12,6:IF ad2»((le)=*'THEN PRINT 
■>*aSE PRINT CHR$(24):ad2»(fie);CH 
R4(24) 

N5440 CALL tiBB06:IF INKEY(6>=0 THEN >GR 
nbe=25:G0SUB 1410:GOTO 5680 
•^5450 LOCATE 12.6:PR1NT ad2»(fle):L0 >HT 
CATE 12,7:1F ad34(fie)=**THQI PRINT 
•>"ELSE PRINT CHR»{24);ad3$(fie);CH 
R$(24) 

^5460 CALL tiBB06:IF INKEY(6)==0 THEN >GV 
nbe=25:60SUB 1410:60TO 5690 
''•5470 LOCATE 12,7:PRINT ad3»(fie):LÛ >HM 
CATE 23,9:1F tell${fie)='*THEN PRIN 


'T">*ELSE PRINT CHR${24);telU(fic); 
CHR»(24) 

H48pjCALHiBB06:lF 1NKEY(6)=0 THEN >FF 
nbe=8:G0SUB 1410:60T0 5700 
"^^LOCATE 23.9:PR1NT tell»(fie):L >R« 
OCATE 23,10:1F tel2»(flc)="*THEN PR 
INT*>"ELSE PRINT CHR$(24);tel24(fle 


'"iâOOiLOCATEI 1.3,2:1NPÜTI l. " ". pna» ( f >BP 
le)T:LOCATE 29,3:PR1NT CHR»(18);pni 
$(fie):GOSUB 180:G0SUB -1360:G0T0 54 
00 

■'5670/L0CATEIl,3,2:LINE INPUTIl,"*.a >GR 
dl$(fie):LOCATE 12,5:PR1HT CHR$(18) 
;adl$(fie):GOSUB 180:G0SUB 1360:G0T 


);CHR»(24) 

V 5500f CALL fcBB06:1F INKEY(6)^0 THEN >FZ 
nbc=8:G0SUB 1410:G0T0 5710 - 

\5510/L0CATE 23.10:PR1NT tel24(fle): >RD 
LOCATE 4,13:1F renl4(fle)=*"THEN PR 
1NT’>"ELSE PRINT CHR$(24);renl$(fic 
);CHR$(24) 

5520/CAa yB06:1F 1 NKEY ( 6 ) =0 THEN >GJ 
'nbe=33:GOSÜB 1410:GOTO 5720 
'-5530^LOCATE 4,13:PR1NT renl»(fie):L >PG 
OCATE 4,14:1F ren2»(fle)=*"THEN PRI 
NT*>*ELSE PRINT CHR»(24);ren24(fie) 


0 5430 

'MJBO)LOCATEil,3,2:LlHE lNPÜTIl,**.a >GY 
d2»Tfie):L0CATE 12,6:PRINT CHR»(18) 
;ad2«(fie):G0SUB 180:G0SÜB 1360:G0T 
0 5450 

'^5^B90‘L0CATEI1,3,2:L1NE IHPUTIl,**,a >GE 
d3»(fie):L0CATE 12,7:PRINT CHR$(18) 
îad3$(fie):G0SUB 180:G0SÜB 1360:G0T 
0 5470 

^i200;LOCATEIl,3,2;INPüTll,"",tell»( >CE 
fie):LOCATE 23,9:PR1NT CHR$(16);tel 
l»(fle):GOSüB 180:GOSUB 1360:G0T0 5 


:CHR4(24) 

"'5540 011 yB06:lF 1NKEY(6)=0 THEN >GM 
■ 1160=33: GOSÜB 1410: GOTO 5730 
"5550/L0CATE 4,14:PR1NT ren24(fic):L >PP 
OCATE 4,15:1F ren3»(fle)=**THEN PRI 
NT*>*ELSE PRINT CHR$(24);ren3$(fle) 
;CHR$(24) 

''^60/CALL yB06:lF 1NKEY(6)=0 THEN >GQ 
nbe=33:G0SüB 1410:G0T0 5740 
■'55^70 LOCATE 4,15:PR1NT ren3$(fie):L >PX 
OCATE 4,16:1F ren4l(fie)=*"THEN PRI 
NT*>*ELSE PRINT CHR4(24);ren44(fle) 
;CHR«(24) 

^5580 CALL yB06:lF 1NKEY(6)=0 THEN >GU 
nbe=33:GOSÜB 1410:GOTO 5750 
"5590 LOCATE 4,16:PRINT ren4»(fic):L >PE 
OCATE 4,17:1F ren5»(flc)=""THEN PRI 
NT*>"ELSE PRINT CHR»(24)îren54(fle) 
;CHR«(24) 

'^5600 CALL yB06:IF INKEY(6)=0 THEN >GH 
nbe=33:G0SüB 1410:G0T0 5760' 

"5610 LOCATE 4,17:PR1NT ren5l(fic):L >PC 
OCATE 4,18:1F renG»(fle)=""THEN'PRI 
NT*>*ELSE PRINT CHR»(24);ren6$(fle) 
;CHR$(24) 

''5620 CAR tBBÛ6:lF INKEY(6)=0 THEN >GQ 
nbe=33:G0SüB 1410:G0T0 5770 
-.5630 LOCATE 4.18:PR1NT ren6l(fic):G >LT 
OTO 5780 

"5640 L0CATEIl,3,2:lNPUTIl,"*,M»(fi >AY 
e):i»»(fie)=*l*+UPPER$(nB4(fle)):L0 
CATE 4.3:PR1NT STRING»(34," •):LOCA 
TE 4,3:PRINT MlD*(nB)(fle),2,34):G0 
SÜB 180:G0SUB 1360:G0T0 5410 
"5650 L0CATEIl,3,2:INPUTIl,"",ni$(fi >JJ 
e):ni$(fie);UPPER$(tui4(fie)):L0CATE 
8,3:PR1NT* ":LOCATE 8,3: 

PRINT na$(fle):G0SÜ6 180:G0SÜB 1360 
:GOTO 5380 


490 

\52Jt0jL0CATEI1.3,2:lNPüTll,**,tel2»( >EQ 
fie):LOCATE 23,10:PRINT CHR»(18);te 
l2«(fie):G0SÜB 180:GOSÜB 136O:G0T0 


5510 

\5720j L0CATEtl.3.2:LINE lNPüTll,"*.r >LY 
enU(fle):LOCATE 4,13:PR1NT CHR$(18 
);renl$(fie):GOSÜB 180:G0SUB 1360:G 
OTO 5530 

''5730jL0CATEil,3.2:LINE IHPÜTII,"*,: >LE 
'en2$(fie):L0CATE-4,14:PRlNT CHR4{18 
);ren2»(fic):G0SÜB 180:G0SÜB 1360:G 
OTO 5550 


.^7^LOCATE# 1,3,2:LINE lNPUTIl,"*,r >MC 
en3»(fle):L0CATE 4,15:PR1NT CHR#(18 
);ren3$(fie):G0SüB 180:G0SÜB 1360:G 
OTO 5570 

''5750JL0CATEI1,3,2:LINE lNPüT#l,"*,r >HJ 
en4#(fle):L0CATE 4,IG:PRINT CHR#(18 
);ren4#(fic):G0SüB 180:G0SÜB 1360:G 
OTO 5590 

^ 5760jL0CATEil,3,2:LINE lNPÜTIl,"*,r >HF 
en5$(fie):LOCATE 4,17:PR1NT CHR#(18 
);ren5#(fic):G0SüB 180:G0SUB 1360:G 
OTO 5610 

^J77ÛJ.0CATEI1,3,2:LINE lMPUTIl/»,r >CV 
en6$(fie):LOCATE A,18;P8INT CHR$(18 
);ren6l(fic):GOTO 5630 
l^ZÇ^^OSUB 180:g=5:d=36:h=2l:b=24:c >ÏP 
pa=l:cte=0:egr=2:GOSÜB 90:LOCATEIl, 
l*l:PRIHTil,"Voulez-vous lodifier u 
ne autre fiche de ce fichier (0/N) 

9 ". 

* f 

•7;6799! GOSÜB 1310’- >0/N >ÏJ 

"5800] ON r GOTO 5810,5820 >QH 

'iolO GOSÜB 6530:GOTO 5230' Liste le >TN 
flehier 4 retour aodif 
'' :5B20 /GOSÜB 180:G0SUB 1510:G0T0 2030 >CR 
’->'sAUVEGARDE 

6000 ’- >IJ 
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601^’’Consul ter un fichier >ÏK 

602^ >YA 

>> JÛ3Û/ as : g=2: d=3â : h=2; b=4 ; cpa=0 : cte > YX 
=2:cgr=l:G0SUB 90 ! 

^6g^LÛCATEIl,6,l:P81NTIl,"»-» C >AN 
ONSULTATIÛN " i-*» 

'^MSûjGOSUB 2830’->charge+liste flch >XG 
ier INIT 

'^,6û6ôj IF nbflch=0 THEN RETURN >IB 

^60701 GOSUB 2530’->charge»ent du fie >IF 
hier deiande 

''GOWjGOSUB 6530'->lister le flcbier >YA 
deiande 


\6Q^i[lF nbfic=û THEN RETURN >«B 

^ 6i00 ig=4:d=37:h=22:b=24:cpa=3:cte=2 >VP 
GOSUB 90 

'‘ei^jSOUND l,7l,12;L0CATEtl.2,l:PRl >TC 
NTIi,CHR$(18);’*Nuiéro de la fiche à 
voir : ..":L0CÂTEI1,30,1:1NPUTI1," 
",fic 

\6120ilF fic<l OR fic>nbfic THEN 611 >CT 
0^^ 


7030*->00030lier une fie >XC 

\6140)1F nbfic=l THEN RETURN >WY 

'‘^5O|G0SUB ie0:g=4:d=37:h=21:b=24:c >CU 
*pa=l : cte=0 : cg r=2 ; GOSUB 90 : LOaTEI 1, 

1,hPRINTil,"Voulez-vous consulter 
encore unet(|fiche de ce fichier (0 
/N)?";:GOSUB i3lO*->0/N 
^ 6160\IF r=l GOTO 6080 ELSE RCTURN >AG 

TSÔO”^.-.. >YD 

6510 * lister le fichier deiande >YE 
6520 ’xxxxxtxxxxxxxxxixxtiixii# >YF 

^^30jCLS:g=2:d=39:h=2:b=4:cpa=0:cte >YC 
=2:cgr=l:GÛSÜB 90 

''e^LOCATEIl.A.ltPRiNTIl,"»-» T F >RG 
ÏÏHIER ";nifichKfich);" »-»" 
'\fô50UF nbfic=0 THEN LOCATE 6,5: SOU >XV 
ND 1,284,10:PRINT"Pas de fiches dis 
ponibles !!":RETURN ELSE LOCATE 4,5 
:PRiNT"Liste3 des fiches disponible 
s 



^6560/IF nbfic<ll THEN x=12 ELSE x=2 >BH 

4 ' »■ 


•'.eSTOjFOR i=7 TO 18:L0CATE l,i:PRlNT >TM 
CHR«(18):NEIT 

’^fôOgiFOR i=l TO 10:1F ni»(l)='"'THEN >EV 
6610 

'76590 LOCATE x,l+6:PRlNT USINCII»;! >QB 
;:'PR1NT»= " 

'' 660OJL0CATE x+4,l+6:IF LEFT$(ni$(i) >BR 
,1)='I«THEN PRINT HID$(ni«{i),2,15) 

ELSE PRINT niKl);" «aEFTAlpniXl) 

. 1 ) 

•^ SOlOl NElTrlF nbfic<ll THEN 6840 >YL 
- 6620/ FOR 1=11 TO 20:1F n«$(l)='"'THE >FE 
N 6650 

"‘.6630 LOCATE 20,i-4:PRlNT USING''II''; >RN 


1;:PR1NT''= • 

"JWpjLOCATE 24,i-4:IF LEFT$(ni$(i), >ZN 
1 )="m"THEN PRINT HID$(ni$(l),2,15)E 
LSE PRINT ni»(i)i' VLEFTAlpi»*!!), 

1 ) 

' J6504NEn:IF nbflc<2l THEN 6840 >YR 
^6l^,\G0SUB 1550 >YB 

^66rôi G0SUB 1250 >ÏK 

' 7668 pJr=IHSTRI''^%r$) >Qy 

- 6690 Ï IN r GOTO 6700,6840:G0T0 6660 >AK 
^6700/FOR 1=7 TO 18:LÛCATE l,i:PRINT >TG 

CHRt(16):NEIT 

^_6710tlF nbflc<31 THEN «=12 ELSE i=2 >BG 

'j72p)F0R 1=21 TO 30:1F ni*(l)="’THE >FJ 
N 6750 

^ 6730; LOCATE x,i-14:PRINT USING"!#*; >RG 
’i;:PRlNT''= ■ 

“^7405LOCATE i+4,i-14:IF LEFT4(ni*(i >DU 
),1)=''I*THEN PRINT HID$(ni$(i),2,15 
lELSE PRINT '';LEFT»(pni»(l 

), 1 ) 

'■^50;NEIT:IF nbfic<31 THEN 6800 >YP 

- 6760/ FOR 1=31 TO nbfic:lF in$(i)='"' >KV 
THEN 6790 

'^6770]LOCATE 20, i-24:PRINT USINGMI'' >Tg 
^i;:PRlNT''= • 

\6^L0CATE 24,1-24:IF LEFT$(in»(i) >BT 
‘,1)=’'I''THEN PRINT NID»(ra$(l),2,15) 

ELSE PRINT ni$(i);'' '';LEn$(pni»(l) 


, 1 ) 

'■6290 NEIT >MD 

HsOÛ/GOSUB 1550 >IH 

\ 6810)GOSUB 1250 >XF 

'68^r=INSTR(''SCVr$) >QR 

'.683(ÿON r GOTO te60,6840:GOTO 6800 >AF 
'6840 RETURN ' >GB 

7000 ’.-.-. I >ÏK 

7010 'Consulter une fiche >YA 

7020 ’iixtMxiiiixtHfiii >YB 

'^7030/CLS:g=2:d=39:h=2:b=5:cpa=3:cte >YC 
=2:cgr=l:G0SUB 90 


^mçj x=2;y=l;lF LEFTI(n>$(flc),l)='' >CC 
TTHEN dhl=l1ID$(ni»(fic),2)ELSE ’dh$ 
=ni4(flc)+*" *tpni4{fic) 

'705Q;GOSUB 220:PEN 2:LOCATE 2,6:PRI >NU 
llT'Adresse :*:PEN IrLOCATE 12,6:PRI 
NT adlKfic) 

\706p^LOCATE 12,7:PRiRT ad2»(flc) >ZE 

'7070(LOCATE 12,8:PRINT ad3*(llc) >ZH 

yÔ^PEN 2:L0CAfE 2,10:PRlNT''Téléph >AN 
oüTdoilclIe ■:'':PEN 1:L0CATE 23,10: 
PRINT tell$(fic) 

'7090/PEN 2:LOCATE 2,ll:PRINT''Téléph >AL 
one travatl :'':PEN 1:L0CATE 23,11: 
PRINT tel2$(flc) 

’^71 P 0 / PEN 2:L0CATE 2,13:PRlNT''Rensei >IL 
gnenents :” 


''7110 LOCATE 2,14:PRIHT''-’:PEN 1:L0C >FV 
ATE 4,14:PRINT renl$(flc) 

''7120 PEN 2:LÛCATE 2,15:PR1NT'-'':PEN >NF 
1:L0CATE 4,15:PRINT ren2»{fic) 

'7130 PEN 2:L0CATE 2.16:PRINT''-'':PEN >HK 
1:L0CATE 4,16:PR1NT ren3»(flc) 

''7140 PEN 2:L0CATE 2,17:PRINT*-":PEN >HP 
1:L0CATE 4.17:PEINT ren44(fic) 

'7150 PEN 2:LÛCATE 2,18:PRINT'-":PEN >NU 
1:L0CATE 4,1B:P8INT ren5$(fic) 

''7160 PEN 2:L0CATE 2, igtPRINT’-'.-PEN >NY 
1:L0CATE 4,19:PR1NT ren6$(flc) 

''7170 g=3:d=38:h=22:b=24:cpa=3:cte=2 >VY 
:cgr=l:G0SUB 90 

\718û SOUND 1,71,12:LÛCATEI1.1,1:P8I >HD 
NTIl,"Voulez-vous une iapression (0 


/N) ?";:GOSUB 1310 

■"TlOO ON r GOTO 8030,7200 >QC 

'7200 RETURN >FC 

8000 ’- >YA 

8010 ’laprliante >YB 

8020 'tixxxnxii >YC 

'8030 GOSUB 180:G0SUB 1510:CHAIN"ANN >PH 
1.BAS",5030 

8500 '-- >YF 

8510 'Fin de prograue >YG 

6520 ’ifxxiiixxxxxxfix >YH 


'8530 g=7:d=34:h=4:b=22:cpa=l:cte=3: >UA 
cgr=2:G0SUB 90 

'8540 PAPERIl,l:PENIl,2:dh$="AU REVO >EX 
IR !":x=8:y=2:G0SUB 200 

'JSSÛ. PENIl,0:L0CATEil,4,5:PRINTIl," >LP 
Prograiie écrit par :" 

■'■8560 PENI1,3:L0CATEI1,8,7:PRINTI1," >BT 
GIANETTI Marc" 

'fl52ô-PENIl,0:L0CATEIl,4,9:PRlNTIl," >BB 
Té 1 éphone : " : PENH, 3 : LOCATEI1.16,9: 

PR INTIl,"99324582" 

V8580 PENI1,0:L0CATEII,4,11:PRINTI1, >JL 
"le 27 septeibre 1989," 

'8590 LOCATEIl,18,13:PRINT#1,"RENNES >FC 
» 

'8600 PENI1.2:dhl="A BIENTOT !":x=8: >UE 
y=15:G0SUB 200 


''8610 FOR att=l TO 1000:NEXT >VZ 

'8620 RUN"M.BAS"'ou CALL 0 ou ÙBASIC >FD 
pour ceux qui n’ont pas de lanceur 

9000 ’- >YB 

9010 'pages iinitel et inforiatlons >YC 


9020 ’tflXXXXXtllXXI«ili|«||y<|y«i|]| >YD 

9030 DIM app$(20).cod»(20),serl»(20 >ia 
),ser2l(20),ser3$(20),clel(20) 

9040 GOSUB 1510:CHAIN"ANN1.BAS",600 >DH 
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Lecture 



Ce programme est destiné 
à développer Vhabileté 
perceptive de Vœil (ohy qu^en 
termes pédants^ ces choses-là 
sont dites...). Il s^agit de 
repérer^ parmi les mots qui 
apparaissent à V écran y ceux 
qui correspondent à un 
thème donné. 

O n peut jouer seul, mais il est plus 
intéressant de jouer à deux : cet 
exercice demande alors aux enfants da¬ 
vantage de concentration et de sang-froid 
(attention aux doigts trop nerveux !). Les 
différentes options permettent tout de 
même à tous de jouer, même aux plus 
lents. Un signal visuel indique qui a été 
le plus rapide et si la réponse est bonne 
(signal vert) ou mauvaise (signal rouge). 
Dans le cas de bonne réponse, un signal 
sonore, différent pour les deux joueurs, 
vient s’y ajouter. 

A la fin de l’épreuve, un exercice sup¬ 
plémentaire attend le perdant. A-t-il eu 
une lecture efficace, à défaut d’être ra¬ 


pide ? Finalement, les matches nuis sont 
nombreux et tout le monde est content... 
donc prêt à recommencer. 

Avant de proposer une autre partie, 
pour couper court à toute contestation, 
le programme indique les erreurs ainsi 
que les oublis. 

Il est possible de changer le temps 
d’affichage des mots apparaissant à 
l’écran en jouant sur la variable «durée 
à la ligne 550. 

DATALECT : Ce programme est in-, 
dispensable au fonctionnement du pré¬ 
cédent. Il suffit de le taper pour disposer 
de 16 fichiers d’exploitation. 

CRELECT : Permet de créer ses pro¬ 
pres fichiers. Il faut alors veiller, en don¬ 
nant un nom à ceux-ci, à ce qu’ils se ter¬ 
minent par des nombres formant une suite 
continue. 20 fichiers, par exemple, doi¬ 
vent obligatoirement s’appeler LECTl, 
LECT2... LECT20. Le programme vous 
rappelle alors de modifier en conséquence 
la valeur de la variable «nbfi» (nombre 
de fichiers) à la ligne 540 du programme 
LECTURE. Le mode d’emploi est joint. 


lecture 


10 REHiXtH*************** 

20 RE«»»« LECTURE »»» >P2 
30 REHii» Henri Cheuvet ««> >VQ 
40 REHi<«»<«**<*«********* 

50 ' >LE 
60 60SUB 240:'présentation >KC 
70 ’ 

80 GOSUB 440:'initialisations >KG 
90 ' >1-1 
100 GOSUB 620:'options >QA 
110 ' >RC 
120 GOSUB 940:'préparation eiercice >QH. 

130 ' >KE 
140 GOSUB 1110:'exercice principal >XC 
150 ' >R<> 
160 GOSUB 1400:'résultats et exerci >IG 
ce coipléientaire 

170 ’ >8’1 
180 GOSUB 1930:'on continue ? >TC 
190 ’ >TA 
200 REHixxiiiixitxxitixfixx >RU 
210 RENiix présentation *ix >Uy 
220 REHxxii************** >Rt 
230 ’ >8F 


240 MODE 0:1HK 0,0:INK 1,0:IHK 2,0: >JU 
BORDER 0 

250 PEM IhLOCATE 17,25:PR1MT CHR»( >LA 
164);''HC'' 

260 ENV 1,15,-1,10 >LV 

270 MOVE 100,252,2:TAG:PR1MT*L 1 R >MJ 
E';:TAG0FF:PEN 1:L0CATE 4,10:PRIMT 
CHR4(22);CHR»(1):''L 1 R E'';CHR$(22) 
;CHR«(0) 

280 MOVE 196,189,2:TAG:PRIMT''V I T >CK 
E ...";:TAG0FF:PEN 1:L0CATE 7,14:PR 
IMT CHR»(22);CHR»(1);''V 1 T E 
CHR$(22);CHR$(0) 

290 SOUND 1,200,0,15,1 >PN 

300 INK 1,11:INK 2,20 >NH 

310 FOR u=l TO 1500:NEXT h:F0R 1=0 >HA 

TO 4:L0aTE l,10+i:PRlNT CHR»(18>:N 
EH 

320 INK i,ô:iiiK 2,Ù >H£ 

330 MOVE 100,252,2;TAG;PRIMT»M A 1 >MB 

S'';:TAG0FF:PEN 1:L0CATE 4,10:PRIHT 
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CHR$(22);CH8$(1);"H A I S";CHR$(22) 
;CH8$(0) 

340 MQVE 196,189,2;TÂG:PRINrB I E >BZ 

N !!!";:TAG0FF:PEN 1:L0CATE 7,14:PR 
INT CHR$(22);CHR$(1);"B I E N !!!•; 
CHR$(22);CHR$(0) 

350 SOUND 1,100,0,15,1 >PH 

360 INK 1,11:INK 2,20 >NC 

370 FOR w=l TO 2000:NEXT u >TY 

380 RETURN >ZG 

390 ’ >TC 

400 >VD 

410 REN*«« initialisations ««« >YA 

420 >VF 

430 ’ >RH 

440 MODE 1:B0RDER 4:(NK 0,0:INK 1,1 >CF 

8:INK 2,5:INK 3,7:PAPER 0 
450 DEFINT a-z >yF 

460 DIN 1011(30),sol$(30),x$(30),a( >PK 
30),er$(2,30) 

470 RANDOHIZE TiHE >NA 

480 1oI=CHRI(214)4CHR$(215)^CHR$(8) >FJ 

+CHR$(8)+CHR$(10)^CHRI(213)+CHR$(21 

2):efl=» ■+CHRI(8)+CHR$(8)+CHRI(10 
* 

490 i$=CHRI(24):eac$=CHR$(22)+«A«+» >HJ 
e"iCHRI(8)+»"«+CHR$(22)+CHR$(0) 

500 suitl=* APPÜY >DG 

ER SUR UNE TOUCHE POUR CONTINUER .. 

ff 

510 pl$=CHR$(15)4"A":p3$=CHRI(15)4»» >CD 

C* 

520 afl(0)=* en appuyant sur <E >HH 
SPACE> •:af$(l)=* en appuyant 
sur ’Q’ ou sur *H’ • 

530 indl(0)=:*lndique 
diquez ” 

540 nbfi:=16 
550 c=30:duree=300 
560 RETURN 
570 ’ 

580 REHiiXXXiXXXtiViiX 
590 REHüx options 
600 REHtXXliiiXfiiXftV 
610 » 

620 CLS 

630 PEN 3:LÛCATE 3,6:PRINT"Indiquez >ZC 
votre choix avec <ESPACE>":LOCATE 
8,7:PRINT*puis appuyez sur <ENTER> 

II 

t 

640 PEM hLOCATE 12,13;PRINT»Vous d >AU 
ésirez jouer* 

650 a4(0)=* seul •:al(l)=*à deur* >CF 

660 nbop=2:op=0:i=18:y=i5:yy:lS >BK 

670 GOSUB 2140:nbj=op >QH 


■:ind$(l)=*ln >8N 

>IG 
>MV 
>ZG 
>TC 
>NV 
>QP 

m 

>RH 
>ÜC 


680 FOR 1=0 TO 3:L0CATE 1,13H;PRIH >ü« 
T CHR*(18):NEXT 

690 PEN IrLOCATE 9,l3:PRINT»Les lot >JN 
s seront affichés" 

700 a$(0)=*au centre de l'écran":a$ >NP 
(1)=" au hasard * 

710 nbop=2:op=0:x=ll:y=l5;yy=i5 >AG 
720 GOSUB 2140:plBS=op >RH 

730 FOR i=û Tû SiLûCÀîE i,i3ti:PRiN >ÜR 
T CHR»(1B):NEXT 
740 PEN 1:L0CATE 9,13:PRINT*Le teap >JI1 
s d’affichage sera* 

750 a4(0)=*long*:a$(l)=*ioyen*:a4(2 >RL 
)=*court* 

760 nbop=3:op=0:i=18:y=l5:yy=15 >BM 
770 GOSUB 2140:af=op >PE 

780 IF nbj=0 THEN 870 >NH 

790 CLS >VA 

800 PEN 1:L0CATE l,l2:PRINT*Noa du >JF 
preaier joueur ? *;:PEN 2:lNPUT**,n 
»:IF n$=*" THEN PRINT CHR4(7):G0T0 
800:ELSE GOSUB 2230:n$(0)=noa$ 

810 PEN IrLOCATE l,14:PRlHT"Noa du >LQ 
deuxièae joueur ? ";:PEN 2;INPUT", 
nlrlF n»="* THEN PRINT CHR»(7):G0T0 
810:ELSE GOSUB 2230:n$(l)=noa4 
820 CLS >UE 

830 PEN IrLOCATE 13,8rPRINT"Pour ré >TG 

pondre,' 

840 z$=p3$+n4(0)+pl$+* appuiera sur >KH 
■♦p3»+*’Q’*rL0CATE 23-LEN(z4)/2,12 
rPRINT z$ 

850 zl=n$(l)tpl$+* appuiera sur "tp >DG 
3*t*’H'*rL0CATE 22-LEN(z4)/2,14rPRI 
NT zt 

860 GOSUB 2080 >QF 

870 CLSrPEN 3rL0CATE 4,12rPRINT*Pat >DK 

ience, je prépare l’exercice...*' 

880 RETURN >AB 

890 ’ >TH 

900 REHxxxxiixiiiixiiixitiiixiiiiii yyg 

910 REHtix préparation exercice x«x >DA 
920 REHxxiXiitxiiiiixiiiiixxffixxif >yt 

930 ’ >TC 

940 f=INT(RNDinbfl)MrlF f=ff THEN >QG 
940 ELSE ff=f 

950 l»=*lect*+HID$(STR»(f),2) >TL 
960 OPENIN f$ >U 

970 iNPUTI9,coa* >LV 

980 FOR i=l TO 30rlNPUTI9,x»(i)rNEX >EP 
T 


990 CLOSEIN >FK 

1000 FOR i=l TO 30 >itti 

1010 h=INT(RNDic)4l >NH 

1020 aot$=x$(h)rx$(h)=x4(c)rc=c-l >AH 

1030 sol4(l)=RIGHT$(aotl,l)rBot$(i) >HD 

=HID«(aot4,l,LEN(aot4)-l) 

1040 NEH >KG 

1050 RETURN >EK 

1060 ’ >XK 

1070 REHxxiixxxiixxiiixiiixixfxitfi >yv 

1080 REHxxx exercice principal *ix >BJ 

1090 REHxxfiixxxixxfiixiifXifiixiii >yx 

1100 ’ >XE 

1110 CLS >ZC 

1120 jl=Orj2=0rerl=0rer2=0roub=0 >AF 
1130 PEN IrLOCATE 4,lrPRINT i$+SPAC >BV 
E$(iNT(24-LEN(coa«))/2)Hnd«(nbj)4c 
oaiiSPACE4((25-LtN(coa4ii/2i*iirLûC 
ATE 4,2rPRINT Il4af»(nb1)+1» 

1140 GOSUB 2080rL0CATE l,25rPRINT C >U 
HR»(18); 

1150 FOR i=l TO 20 >LC 

1160 at=duree/(af4l) >PX 

1170 IF plas=0 THEN x=20-LEN(aot»)/ >FF 
2ry=12rELSE x=INT(RND«(38-LEN(Bott< 
l)))+2)ry=INT(RNDx23)43 
1180 LOCATE x.yrPRINT aot$(i); >ZL 

1190 flag=0 >UF 

1200 UH ILE at>0 >BF 

1210 at=at-l >DC 

1220 lc$=UPPER$<IHKEY$)rIF {nbj=0 AN >ZC 

D lt»<>CHR»(32)) OR (nb1=l ANDIklO* 

Q" AND k$<>*M*)) THEN 1290 

1230 IF k»=*Q* THEN 1240 ELSE 1260 >TJ 

1240 IF sol»(i)=*v" THEN flag=lrjl= >ICF 

jlHrSOUND l,50,5rPEN IrELSE erl=er 

inrer»(l,erl)=aot»(l)rPEN 3 

1250 LOCATE 2,lrPRINT loIrGOTO 1280 >CU 

1260 IF sol»(l)=*v" THEN flag=lrj2= >HZ 
j2HrS00ND l,400rPEN IrELSE er2=er2 
+lrer$(2,er2)=aot»(i)rPEH 3 
1270 LOCATE 38,lrPRINT lo$ >ÜH 

1280 at=5ïatrUHILE at>Orat=at-lrUEN >RU 
DrLOCATE 2,lrPRINT efIrLOCATE 38,Ir 
PRINT efIrPEN 1 

1290 UEND >JG 

1300 IF flag=0 AND sol$(i)=*v* THEN >KI1 
oub=oub'*lroub)(oub)=aot$( i) 

1310 LOCATE X.yrPRINT SPACE4(LEN(ao >U 
t»(i))) 

1320 CLEAR INPUT >U 
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1330 NEIT l >VC 

1340 8ETURN >FB 

1350 ’ 

1360 REn»»*»»*»****'*********** >PF 

lifilIlililHftlt 

1370 REH*M résultats et exercice c >ZR 
oapléientaire *** 

1380 REH««**»»<«<>**«*<****<>*****< >FH 

IliitlIflXiiftlIf 

1390 ' >YF 

1400 CLS >ZE 

1410 IF nbj=0 THEN 1580 >QH 

1420 IF Jl-erl>j2-er2 THEN ga4=n»(0 >AÏ 

):per4=n»(l):3ga=)l:erga=erl:iper=,i 
2:erper=er2:ELSE gal=n$(l):per$=n4( 

0):Jga=J2:erga=er2:jper=jl:erper=er 
1 

1430 IF Jga>l THEN 1ga$=*bonnes rép >BQ 
onses* ELSE Jga$="bonne réponse* 

1440 IF jper>l THEN |peré="bonnes r >GB 
éponses* ELSE jper$=*bonne réponse* 

1450 IF erga>l THEN pga»=*erreurs.* >ED 
ELSE pga4=*erreur.* 

1460 IF erper>l THEN pper$=*erreurs >KA 
.* ELSE pper$=*erreur.* 

1470 IF jl-erl<>j2-er2 THEN 1540 >YH 
1480 LOCATE 1,4:PR1NT n»(0);' a*;er >VJ 
l;*erreur*;:lF erl>l THEN PRINT*s* 

1490 LOCATE LEN(n»(0)),5:PR1NT* et* >JZ 
;J1;:1F 11>1 THEN PRINT*bonnes répo 
nses.* ELSE PRiNT'bonne réponse.* 

1500 PRINTtPRlMT n»(l);* a";er2;*er >PP 
reur*;:IF er2>l THEN PRINT"s* 

1510 LOCATE LEM(n4(l)),8:PRIMT* et* >iY 
;)2;:1F j2>l THEN PRINT*bonnes répo 
nses.* ELSE PRlNT*bonne réponse.* 

1520 PEN 3:PE1NT:PRINT:PRINT* >DK 

Vous *;eac$;"tes donc à égalité." 

1530 GOSUB 2080:CLS:G0T0 1820 >XT 

1540 PEN 2:L0CATE 13,l:PRINT*Pour I >LH 
e ■oaent,*:PRINT:PRINT 
1550 IF galO** THEN LOCATE 17-LEN( >LH 
gal)/2,4:PRINT ga$;* gagne*:PEN 3:P 
RINT* avec*;Jga;jga4;* et*;erga;pg 
a$:PEN 2:L0CATE 18-L£N(per4)/2,8:PR 
INT per4;* perd*:PEN 3:PRINT* avec 
*;tper;jperé;* et*;erper;pper$ 

1560 PEN 1:L0CATE 20-LEN(per$)/2,15 >AU 
:PRiNT perAtPRINT* va avoir une qu 
estion de rattrapage.*:LOCATE 18-LE 
H(per»)/2,18:PRIHT *Si •;per4:PRIN 
T* répond à cette question,* 

:PR INT* il y aura aatch nu 


l.*:G0SUB 2080:CLS 

1570 PEN 3:IF per»<>** THEN LOCATE >HX 
20-LEN(perl)/2,l:PRINT per$;*,* 

1580 IF perlO** THEN PRINT* t*;:EL >RT 
SE PRINT* T*; 

1590 PRiNT*u viens do lire une list >NH 
e de 20 ■ots.*:L0CATE 6,4:PRlHT*ün 
des 4 aots ci-dessous*:LOCATE B,5:P 
RiNT*n’en taisait pas partie.* 

1600 PEN ItLOCATE 5,10:PRINT*lndiqu >YF 
e son nuaéro (l'2~3 ou 4)*:PEN 2 
1610 i=INT(RNDilO)i21:x«(l)=iot«(i) >IZ 
:bonrepA=aot$(i) 

1620 i=INT(RNDi9)U:F0R j==0 TO 2:x« >CG 
(i+2)=iot$(l+1«4):NEn 
1630 n=4:c=0 >BA 

1640 RHILE nOO >BC 

1650 hMNT(RND«n)n >NK 

1660 c=c^i:qé(c)=x$(h):x4(h>=xé(n) >BZ 
1670 n=n-l >LH 

1680 REND >JK 

1690 FOR i==l TO 4:L0CATE i3,13H:PR >AL 
INT lî* *;q4(l):NEn 
1700 lt♦=INKEY♦:IF k»=** OR INSTRCl >PR 
234*,lc»)=0 THEN 1700 ELSE lc=VAL(k») 

1710 PEN 2:1F q»(k)=bonrep» THEN LO >TG 
CATE 14,20:PRIHT*REP0NSE EXAaE*:lF 
nbj=l THEN PEN 3:L0CATE 11,22:PRIN 
T l»;* HATCH NUL *;i$:G0T0 
1730:ELSE 1730 

1720 PEN hLOCATE 10,20:PRINT*Non, >AJ 
c'était *;:PEH 2:PRIN7 bonrepl;:PEN 
1:PR1HT*.*:1F nbj=l THEN PEN 3:L0C 
ATE 12-LEN(ga$)/2.22:PRIHT 1$;* *;g 
a$;* est vainqueur. *;il 
1730 GOSUB 2080:CLS >NB 

I 

1740 PRlNT^Au cours du 1er exercice >QX 

^ t. 

1750 IF nb,1=l THEN 1810 >QH 

1760 PRINT*tu devais*:PRiNT*indique >AG 
r *;coat;*.* 

1770 IF er2-0 AND oub^û THEN PRINT: >ÛH 
PRINT:PRINT* ...tu avais tout tro 
uvé, BRAVO !!!*:G0T0 1860 
1780 PEN 3:1F er2<>0 THEN PRiNT:PRI >QH 
NT*Tu avais indiqué par erreur :':P 
EN 2:F0R 1=1 TO er2:PRINT er*(2,i): 

NEXT 

1790 PEN 3:1F oubOO THEN PRINT:PRI >PP 
NT*Tu avais oublié :*:PEN 2:F0R i=l 
TO oub:PRINT oub$(i):NEIT 
1800 GOTO 1860 >NB 

1810 PRINT*vous deviez*:PRINT*indiq >DR 


uer *;coi$;*.* 

1820 IF erl=0 AND er2=0 AND oub=0 T >LL 
HEN PRINT:PB1NT:PRINT* ...Vous av 
iez tout trouvé. BRAVO !!'.":G0T0 18 
60 

1830 PEN 3:PR1NT:PRINT n»(0)::lF er >AQ 
1=0 THEN PRINT* n’avait pas fait d’ 
erreurs.* ELSE PRINT* avait indiqué 
par erreur :*:PEN 2:F0R i=l TO erl 
:PR1NT er»{l,i):NEXT 
1840 PEN 3:PRINT:PR1NT n»(l)::lF er >A« 
2=0 THEN PRINT* n’avait pas fait d’ 
erreurs.* ELSE PRINT* avait indiqué 
par erreur :*:PEN 2:F0R i=l TO er2 
:PRINT er$(2,i):NEXT 
1850 PEN 3:1F oubOO THEN PR1HT:PR1 >ÜH 
NT*Vous aviez oublié :*:PEN 2:FOR i 
=1 TO oub:PRINT oub4(i):NEXT 
1860 GOSUB 2000 >IH 

1870 RETURN >FK 

1880 ’ >TK 

1890 REn«x*«*«*t**«**<<>i***** >0E 

1900 REHixi on continue ? »»* >VZ 

1910 REnix***************** >DX 

1920 ’ >YE 

1930 FOR u=l TO 1000:HEXT >TC 

1940 CLS >A1> 

1950 PEN 2:L0CATE l,9:PRlNT*Une aut >PU 
re partie (0/N) ? *;:PEN 1:PR1NT*.* 
;CHR$(8); 

1960 k$=0PPER$(lNKEY»):lF k$=*" OR >EH 

INSTR(*0N*,k»)=0 THEN 1960 

1970 IF k$=*0* THEN P8IHT*0U1*:F0R >HF 

w=l TO 1000:NEXT:CLEAR:GOTO 60 

1980 IF k»=*N* THEN PRINT*NON*:FOR >UK 

u=l TO 1000:NEXT 

1990 MODE 0:INK 1,11,16:INK 2,16,11 >NC 
:PEN 2:L0CATE 5,ll:PRINT*Au revoir* 

:PEN 1:F0R u=l TO 3000:NEXT:NODE 1: 

CAa iiBC02 

2000 END >YA 

2010 ’ >IF 

2020 REHixv********************* >BX 
isx 

2030 REHixx sous-prograues divers >GT 

IX* 

2040 REHii»***»**»»»*»*****”* >BZ 

XIX 

2050 ’ >IK 

2060 REHxv* attente pour suite >ZL 
2070 ’ >YB 

2080 PAPER 2:PEN 0:L0CATE 1.25:PRIN >YX 
T*xxxxxxxxx*:LOCATE 32,25:PRINT*»»» 
xxxxxx*::PAPER 0:PEH 1 
2Ô9Ô CLEAfi iNPUT:F0R i=l TO LENisui >B& 
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tl)-22:LÛCATE IÛ,25:PRINT MIDKsuit 
$,i,22):F0R TO 50:NEIT:IF INKEY 
$=” THEN NEÏT i:GOTO 2090 


2100 RETURN >EG 
2110 » >XG 
2120 REHtxi choii options >ÜH 
2130 ’ >XJ 
2140 PEN 2 >FH 


21S0 LOCATE x,y:PRINT il;a$(0);il:F >Ey 
OR 1=1 TO nbop-l:LOCATE i,yH:PRINT 
al(i):NEXT:CLEAR iNPUT 
2160 kl=INKEY$:IF l(i=*" THEN 2160 >ZA 
2170 IF kl=CHRI(32) THEN LOCATE i,y >CZ 
y:PRINT a$(op):op=(op^l)H0D nbop:yy 
=y^op:LOCATE x,yy:PRlNT i$;a$(op);i 
$ 

2160 IF kl=CHRI(13) THEN 2190 ELSE >DV 


2160 

2190 RETURN >FF 
2200 » >XG 
2210 RENxxx traiteient du noa des j >KH 
oueurs 

2220 ’ >XJ 
2230 noa$=” . >YB 
2240 nl=LOUER$(n$) >Hy 
2250 FOR i=l TO LEN(nl) >QG 


2260 IF i=i OR ■aj=l THEN ■aj=0:HID >YL 
4(nl,i,l)=UPPERI(HID$(n$,i,l)):iF N 
ID$(n$,l,l)=»é" THEN MID$(nl,i,l)=« 

£■ 

2270 IF HID$(nl,i,l)="“" OR HIDI(n$ >VZ 
,i,l)=» " THEN ^1=1 
2280 noal=noal^HID$(nl,i,i) >VN 

2290 NEH >LE 

2300 RETURN >EJ 


datalect 

10 REHXXiiXXifXXiiiXfifVXffXXfiXXi >YB 

20 REH»*i DATALECT >qK 

30 REHxxi 16 fichiers préparés xxf >CK 

40 REM«»i pour LECTURE «»§ >VD 

50 REH«»i Henri Chauvet «vt >VB 

60 REH^xtixxiiixtfxxtfixifivvffxvf >YG 

70 » >LG 

80 DIH coal(i6),x$(i6,31) >RF 

90 FOR i=l TO 16 >XG 


100 READ coi$(i) 
110 FOR i=l TO 31 
120 READ x$(i,j) 
130 NEXT 1 


>EF 

>BJ 

>DA 

>ND 


140 IF xl(i,J-l)<>»x*» THEN 11=290+4 >LN 
Ox(i“l):PRINT CHR$(7):PRINT»Erreur 
dans les DATAs lignes”li"é*li+20:EN 
D 

150 NEXT i >NE 

160 HODE 0:L0CATE 4,7:PRINT»ENREGIS >XE 
TREMENT":LOCATE 4,9:PRINT"flchi«r n 
uaéro*:PEN 2 
170 FOR. 1=1 TO 16 
180 LOCATE 9,11:PRINT 1 
190 OPENOUT "lect*+MIDI(STRI(i),2) 

200 yRlTEI9,cûil(i) 

210 FOR 1=1 TO 30 


>CG 

>RP 

>DY 

>NH 

>BJ 

>DZ 


. 220 IF 1<9 THEN x$(i,j)=x$(i,j)+«v' 

ELSE xl(l,J)=xl(l,J)+"f* 

230 HRITEt9,xl(i,j) >NT 

240 NEXT J >NF 

250 CLOSEOUT >RH 

260 NEXT 1 >NG 

270 CLS.-PEN 15:L0CATE 5,12:PRINT"- >NH 
terainé -^PEN hLûCATE 1,24 
280 » >TA 

290 DATA les noas d’aniaaux >HE 

300 DATA chat,gazeIle,écureuil,chev >ZV 
al,taureau,glrafe,tourterelle,loup, 
aaison,parfua,ouvrier,traîneau,feui 
lie,clavier,table 

310 DATA lettres,arbrisseau,crayon, >NR 
craie,soleil,filet,fi la,actrice,cha 
ise,télévision,rigolo,protéger,cana 
pé,Jardinier,surprise,X 
320 » >RF 

330 DATA les noas d’aniaaux >HZ 

340 DATA éléphant,brochet,phoque,gu >KR 
épard,sang 1ier,chevreui1,corbeau,se 
rpent,courant,canon,chévrefeui1 le,p 
atte,sanglot,transporteur,broche 
350 DATA fantastique,pharaon,photo, >VZ 
départ,orneaent,cordeau,couverture, 
pratique,branchage,pianiste,tornade 
,aagnifique,parents,vltrage,oublier 

360 ’ >RK 

370 DATA les noas d’oiseaux >HD 

380 DATA aésange,épervier,cigogne,P >DZ 
le,rouge-gorge,vautour,roitelet,aer 
ie,caaion,borgne,lunette,coupe-gorg 
e,pied,per le,chaton 

390 DATA cinéaa,déaangeaison,codage >QZ 
,c1asseaent,dé jeûner,f1ocon,terrass 


e,aoucheron,parachute,caleçon,désin 
fecter,jaabon,parfua,bouton,stylo,! 

AOO ’ >RE 

410 DATA les noas de poissons >YY 
420 DATA gardon,requin,carpe,sardin >HQ 
e,aaquereau,sauaon,sole,aorue,tortu 
e,tarte,pardon,échasse,portier,guép 
ard,col lier 

430 DATA auraille,cousin,adairation >HJ 
,boulon,coquille,bandeau,laapion,so 
urdine,airoir,cravate,tourtisseau,g 
renadine,raisin,tondeuse,tiabale, x 
440 ’ >RJ 

450 DATA ce qui a une forae ronde >AN 
460 DATA disque,soleil,anneau,cerce >DY 
au,bracelet,assiette,roue,soucoupe, 
terrasse,disponible,parents,acteur, 
histoire,construire,fourchette 
470 DATA carré,soMei 1, année,boue, V >GF 
edette,forain,drapeau,discuter, briq 
uet,égaleaent,départ,iaagination,sa 
ton,soudure,cheain,x 
480 ’ >TC 

490 DATA les noas de pays >TG 

500 DATA 1TAL1E,ALLEHAGNE,ALGER1E,A >CR 
RGENT 1 NE,BELGIQUE,1RAN,GRECE,BRESIL 
,BEURRE,ANGLE,ROUSSIE,RATON,HONTAGN 
E,EPARGNE,TOURHENTE 

510 DATA TR0UBLER,CU1SSE,H1NUTIE,AH >CC 
1T1E,CLEMENTINE,CHARM1LLE,BROUT1LLE 
,CANAPE,ENNEHI,ENV1E,US1NE,BOULANGE 
RIE, CAMOM1 aE, VI TR I NE, MUSCLE, x 
520 ’ >RH 

530 DATA les noas d’arbres >MB 

540 DATA peuplier,poaaier,sapin,pal >ZE 
aier, bouieau,platane,pin,prunier,di 
sposer,barreau,croquer,aénage,affie 
he,niveau,capable 

550 DATA résultat,planche,peupler,P >QX 
oaaade,cerise,satin,pluaier,boulon, 
pal 1er,niche,liste,peuplade,sable,h 
iver,partie,! 

560 ’ >TB 

570 DATA les parties du corps >YL 

580 DATA ventre,pied,cheville,bras, >CL 

ongle,dos,ausc1e,or tei1,feui11âge,o 
ne1e,cour,tendre,oublier,charaant,c 
ouperet 

590 DATA piéton,carreau,autruche,go >DM 
iae,buisson,ciseaux,antilope,aoteur 
,besoin,particulier,consei11er, coaa 
ande,hé 1ice,atoae,coaaandant,x 
600 ’ )RG 

610 DATA les parties du corps >YF 
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620 DATA cheville,genou,épaule,pouc >JB 
e,doigt,coude,gorge,■ain,garneient, 
carpette,liaande,landau,linutevCise 
aux,louche 

630 DATA ■atln,couple,pousser,droit >ZX 
ier,épaulard,chenllle,tasse,avion,p 
lancher,laison,artichaut,correct,po 
intu,croix,tube,X 

640 ’ >TA 

650 DATA les parties du visage >YD 
&à0 DATA joue,oeil,lèvre,cheveu,nez >CB 
,aoustache,ienton,bouche,chaiet,bal 
Ion,treiplin,régulier,longueur,astr 
e,fond 

670 DATA livre,■arlne,soucl«touche, >DD 
de l, jouet, or tel l, f lan, statue, agraf 
e,fila,escabeau,aandollne,bouchon,t 
errain,x 

680 ’ >TE 

690 DATA les nois d’habits >NA 

700 DATA cheaise,jupe,chaussette,gl >DV 
let,blouson,laillot,lanteau, short, c 
assette,souple,aallIon,caprice,légl 
on,cordage,escargot 

710 DATA pantelant,danse,cygne.rest >ZB 
e,vase,écrevisse,folle,violette,gui 
don,fertile,tester,sucré,jaabonneau 
ybaibou,chagrin, X 

720 ’ >RK 

730 DATA les noas de fleurs >VE 

740 DATA dahlla,géraniua,iuguet,oel >yF 
llet,tulipe,lys,pensée,chrysanthèie 
,pauvre,reaonter,perle,balcon,suiet 
,variété,rosse 

750 DATA argent,odeur,potier,aaladl >NT 
e,voisinage,parfait,couronne,agréab 
le,horizon,paroi,terrassier,violet, 
aoaent,espèce,fleurir,! 

760 ' >TD 

770 DATA les noas de fleurs >UA 

780 DATA prlaevère,jonquille,Il las, >QB 
aarguerite,rose,coquellcot,ayosotis 
, violette, canin, surface, aasslf,tap 
is,infester,globe,actuel 
790 DATA grouper,culture,paille,sen >ZZ 
sible,printeips,curieux,huaide,aigu 
Il le,calcaire,fond,teapérature,sous 
traire,gaaae,aotte,arroser« x 
800 ' >RJ 

810 DATA les prénoas >QD 

820 DATA JACQUELINE,PHILIPPE,BERNAD >yN 
EHE, D l D1 ER, y l NCENT, JOSEPH, HON l QUE, 
CHRISTIANE,AHANDE,ORCHESTRE,PASTORA 
LE,POURTANT,CHRETlENNE,ARCHlVES,COP 


INE 

830 DATA SOUBRETTE,BOHBARDE,BASILIQ >AV 
UE,FOURHl,POURCENTAGE,BANANE,BRUNlR 
, CAPa l NE, PH l LOSOPHE, FRANCA l S, BOUT l 
QUE, OREILLONS. HENUET.BlQUEnE, BRETE 
LLE,x 

840 ’ >TC 

850 DATA les noas de létiers >XH 

860 DATA docteur,boulangère,coaaerç >DP 
ant,aenuisier,aécanicien,secrétaire 
,aaçon,couturière,douleur,auslque,c 
haleur.ioteur,balançoire,étagère,sé 
vère 

670 DATA douceur,poissonneux,Jardin >HD 
er.aotoculteur,chantier,foriidable, 
entourer,vendre,taabour,peluche,bro 
ulllon,Plaquette,écouteur,cendr1er, 
torsade,! 

880 ’ >TG 

890 DATA les instrua. de lusique >BB 
900 DATA troapette,violon,guitare,h >VV 
araonica,piano,banjo,saxophone,clar 
Inette,océanique,couverture,scaphan 
dre,couleuvre,boulevard,haraonie,og 
re 

910 DATA arnica,troiblon,rouleau,ag >LG 
rafe,pantin,rectangle,calendr1er,tl 
ibre,ravin,COloibe,téléphone,décour 
âgé,cactus,tuyauterle,charrette,x 


crelect 



10 REn«*t**<**<i***<>****>**<)***»<> >YB 

20 REMïm crelect »»i >PX 

» 

30 REH«»( création de fichiers.*«< >BB 


40 

REH»»» 

pour LECTURE 

t«i >vz 

50 

REH»»» 

Henri Chauvet 

i«i >vu 


60 REH*****>**>«**>*«<*i»***<»*»* >YG 


70 ' >LG 
80 REH«» iode d’eaploi >*< >BJ 
90 ’ >LJ 
100 HODE 1 )GK 


110 SYMBOL AFTER 91:SYHB0L 91,24,36 >VG 
,60,102,126,96,60 

120 PEU 1:L0CATE l,12:PRIMT*Voulez- >HF 
vous le iode d'eiploi (0/N) ? *;:PE 
N 2:PRINT»_*;CHRI(8); 

130 k*=UPPËR>(INKEY»):lF kM"" OR I >CZ 
NSTR(*0N”,k»)=0 THEN 130 


140 IF kM'N* THEN PR1MT"N0N":F0R a >DA 

t=l TO 500 ;NEn: GOTO 300 

150 PRINT*0UI*:F0R at=l TO 50Û:NEXT >DZ 
160 CLS:PEH 1:L0CATE 7,6:PRIMT*Ce p >EE 

rograue peraet de créer*:PRINT'des 
fichiers utilisables par 'LECTURE* 

f 

170 PRINT:PRINT:PRINT* Vous devrez >JV 
d’abord indiquer un thèae:*:PRlNT'’ 
les noas d’aniiaux, les aétiers.. 

« 

• 

180 PRlNT:PRiNT:PRlNT’'Vous avez dro >TY 
It à 24 lettres au iaxiiua.*;:PRlNT 
” Un astérisque indiquera cette lia 
Ite." 

190 PEN 2:L0CATE 10,25:PRINT"Appuyé >TN 
Z sur une touche":CLEAR 1NPUT:CALL 
ABB06:CLS 

200 PEN hLOCATE 5,6:PRlNT"Vous ent >Zy 
rerez ensuite 30 aots :":L0CATE 9,1 
0:PRlNT"les 8 preaiers doivent";" o 
bligatoireient correspondre au thèa 
e (Hre des noas d’anlaaux, de aét 
lers...)" 

210 LOCATE 9,14:PRlHT"les 22 autres >FC 
doivent":PRlNT"obligatoireaent •t r 
e étrangers au thèae." 

220 PEN 2:LOCATE 10,25:PRINT"Appuyé >TG 
Z sur une touche":CLEAR INPUT:CALL 
ABB06:CLS 

230 PEN hLOCATE l,2:PRlNT"Le progr >BN 
aaae ajoute";" un ’v’ aux 6 pr 
eaiers (vrais)";" un *f’ aux 2 
2 autres (faux)." 

240 LOCATE 7,6:PRlMT"Les 30 aots qu >RC 
e vous proposez vous";"seront prése 
ntés sous cette forae pourvériflc 
ation et si nécessaire correction" 

250 LOCATE 7,ll:PRlNT"Si vous Hes >BY 
satisfait, donnez un”;"nuaéro au f 
Ichler :":PRlNT"l pour le prealer, 

2 pour le deuxièae...":PRlNT:PRlNT" 

Le fichier sera alors enreg 
istrésous le noa de LECTl, LECT2... 

t 

260 PEN 2:L0CATE 10,25:PRINT*Appuyé >TG 
Z sur une touche*:CLEAS INPUT:CALL 


l(BB06:RUN 

270 ’ >RK 
280 REHi* saisie du fichier *< >XV 
290 ’ >TB 
300 HODE 1 >H6 
310 DIN ■ot$(30),i(30),y(30) >VV 


320 UIHDOUIl,1,40,l,3:UiND0Ut2,1,40 >FE 
,4,i9:UIND0UI3,l,40,20,25 
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330 CLSIl:PRiMTIl/Thète ->»;SPACEI >BK 
(25);’»i«:L0CATEil,10,l:lNPUTil/%c 

01$ 

340 IF coi$="» OR LEN(coil))24 THEN >AV 
PRINT CHR$(7):G0T0 330 
350 FOR i=l TO 30 >CC 

360 PENi2,2:PRiNTI2,i; >RB 

370 PENi2,l:lNPUTI2,"%iot$(i):IF i >yD 
oU(i)="" THEN 370 

380 IF i<9 THEN ■otl(l)=iot$(l)+"v’» >EV 


ELSE ■ot$(i)=iot$(i)+»f" 

390 NEXT >EH 
400 FOR at=l TO 550:NEn at >UB 
410 ’ >RF 
420 REM*» correction des erreurs «* >DR 
430 » >RH 
440 CLSi2 >EE 


450 FOR 1=1 TO 8:PEN l2,l:PRINTt2,i >CM 

;iot$(i);CHR$(8);:PENi2,2:PR1NTI2,R 

lGHT$(iot$(i),l):NEXT 

460 FOR 1=9 TO 15:PEHt2,l:PRINTI2,i >DM 

;iotl(i);CHRI(8);:PENI2,3:PRINTi2,R 

IGHT$(iot$(i),l):NEIT 

470 FOR 1=16 TO 30:PENi2,l;L0CATEI2 >JF 

,20,i-15:PRINTt2,i;iot$(i);CHR$(8); 

:PENI2,3:PRINTi2,RlGKT$(iot$(i),l): 

NEXT 

480 CLEAR INPUT:CLSI3 >RC 

490 PENi3,l:PRIHTI3,"y a-t-il une e >NT 
rreur (0/N) :PENt3,2:PRINTI3.^^• 
CHRI(8); 

500 kl=UPPERI(INICEY$):IF k$=’'" OR I >CB 

NSTR("ON",kl)=0 THEN 500 

510 IF kl=*N" THEN PRINTI3,"N0N*:F0 >ia 

R at=l TO 500:NEXT at:GOTO 680 

520 PRINTI3,"0UI":F0R at=l TO lOOiN >JE 


EXT at 

530 L0CATEt3,l,2:PENI3,l:PRINTI3,"Q >GP 
uei nuiéro (0 pour le titre) ";:PEN 
l3,2:INPUTI3.”,nl 

540 n=VAL(n$):IF n=0 AND n$<>*0* TH >AR 
EN PR INTI3,CHR$(7):L0CATEI3,1,2: PR I 
NTI3,CHR$(18):G0T0 530 
550 IF n>û THEN 590 >LG 

560 CLSIl:PRINTtl,*Thèie -> " >ZV 
570 PENI3,l:L0CATEi3,34,4:PRINTI3,* >EL 
»M0CATEI3,l,4:INPUTI3,"Tlvèie -> " 
«coil 

580 IF coi$=” OR LEN(coil)>24 THEN >XL 
PRINTI3,CHR$(7):L0CATEI3,1,4:PRINT 
I3,CHRI(18):G0T0 570:ELSE LOCATEil, 
10,l:PRINTIl,coil:G0T0 480 
590 IF n<16 THEN ï=l:y=n:ELSE ï= 20: >JK 
y=n-15 

600 PENi2,l:L0CATE#2,it,y:PRINTI2,n; >CH 
SPACEi(LEN(iot$(n))) 

610 CLSi3:PENI3,l:PRINTI3/Ecrivez >AB 
le nouveau lot (sans ’v’ ou ’f’ fin 
al)":PRINTt3:PRINTI3,n;:INPüTI3,iot 
l(n) 

620 IF n<9 THEN ■ot$(n)=iot$(n)+*v* >FK 
ELSE ■ot4(n)=iotl(n)*"f" 

630 PENI2,l:L0CATEt2,i,y:PRINTI2,n; >XE 
■otl(n);CHR$(8); 

640 IF n<9 THEN PENI2,2 ELSE PENI2, >BM 
3 


650 PRINTI2,RIGHT$(iot$(n),l) >yT 

660 GOTO 480 >AA 

670 » >TD 

680 REM** enregistreaent du fichier >Gy 

*1 

690 » >TF 


700 MODE 2:PEN 1:CAT >NR 
710 yINDOyi1,1,60,20,25 >RL 
720 PENH, hINPUTIl,«Fichier nuaéro >TN 
: ",fi$ 

730 IF VAL(fi$)=0 THEN CLStl:GOTO 7 >DB 
20 

740 fil=«LECT«+fi$ >MC 
750 PRINTI1:PRINTI1,CHR$(24);« J»en >NX 
registre ■;fil;« *;CHR$(24) 

760 OPENOUT fil >HE 
770 yRITEt9,coal >LM 
780 FOR 1=1 TO 30:yRITEi9,aotl(i):N >GL 
EXT 

790 CLOSEOÜT >TG 
800 CLSil:PRINTil/TERHINE«:PRINTfl >QJ 


t-i 

» 

810 ' >RK 

820 REM*** suite *** >NG 

830 » >TB 


840 LÛCATEI1,1,4:PRINTI1,"Un autre >QJ 
fichier (0/N) ? _";CHRI(8); 

850 kl=UPPERI(INKEyi);IF kl="" OR I >CT 

NSTR("0N",kl)=0 THEN 840 

860 IF kl="0" THEN PRINTI1,«0UI«:F0 m 

R at=l TO 500:NEXT:RUN 

870 PRINTtl,"MON":FOR at=l TO 500:N >NK 

EXT .-MODE 1 

880 PRINT" Il faut aaintenant ch >KT 
anger la valeurde la variable ’nbfi 
’ à la ligne 540 dufichier ’LECTUR 
E»." 

890 PRINT:PRINT"Pûur cela :":PEN 2: >YC 
PRINT"- charger 'LECTURE'":PR INT"- 
taper : 540 nbfi=";MIDI(STRI(nbfi), 
2);PRINT"- sauvegarder le nouveau ' 
LECTURE'":PEN 1:PRINT:PRINT:PRINT 





Nom :_ 

Adresse : _ 

Code postal : 
Date :_ 


Prénom: 


Ville : 


_ Signature 


Ci-joint un chèque libellé à l'ordre de : Editions SORÂCOM - La Haie de Pan - 35170 Bruz 
, envoi par avion : + 120 F 

AHENTION I LES ABONNEMENTS NE SONT PAS RETROACTIFS. 

V°Rer!res^''°"®®" '* «“^«chèque (numéro d. carte inscrit ou dos) - par mandat international 
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Pirate 


Ituc & Hervé GUÎLIAÜME 


Valable pour CPC 
464, 664 et 6128 


Vous incarnez un célèbre 
écumeur des mers chaudes se 
nommant Bourgabarbe. Vous 
venez de prendre d*assaut un 
navire dans lequel se trouvent 
7 coffres de pièces d^or. Il vous 
faudra dans un premier temps 
récupérer ces fameux coffres 
et dans un second temps les 
transporter dans votre repère. 


A près le chargement, Tutilisateur 
pour commencer la partie, pourra 
sélectionner soit le clavier (touches direc¬ 
tionnelles + barre) en appuyant sur la barre 
ou soit le joystick en appuyant sur le fire. 
La pause s'obtient en appuyant sur RE- 
TURN. Pour finir, l'abandon s’effectue 
en pressant la touche ESC. 

Les programmes DATAS 1 et 
DATAS2 doivent être tapés et sauvés puis 
lancés par un RUN afin de sauvegarder 
PIRATEl.BIN et PIRATE2.BIN. Pour 
lancer le jeu, faire RUN"PIRATE". 




pirate-bas_ 

10 ’ >L.A 

20 ’ 

«« 

30 * PIRATE >LC 

«i 

40 * 

50 ’ »» Luc and Herve Guillauie >LE 

«« 

60 ' »» Black Systei 1990 >LF 


«I 

70 ’ >LG 

II 

80 ' iiiiiiiiiiiiiiiiiiiii«««««««< >LH 

iiii 

90 * 

100 HEMÛRY 19999 >LT 

110 LÛADVP 1RATE1.BIN", 20000 >yU 

120 L0AD"!P IRATE2.BIN", 30000 >WZ 

130 CALL 30Ô00 >HH 


dotas 1_ 

10 ' 

20 ’ DATAS pour PIRATEl.BIN 
30 ’ 

40 MODE 2:AD==tiC000:NL=110 









50 FOR B=1 TO 258:T0T=0:F0R T=0 TO U 
:READ A* 

60 POKE AD,VAL(»l*+A»):TOT=TOT+PEEK(A 
D):AD=AD4l 

70 MEXTiREAD SOMAtIF VAL(*lt»*SOHA)<>T 
OT THEN 90 

80 NL=NU10:NEXT:SAVE*PIRATE1.BIN%B, 
tiCOOO,liFlB:aS:END 

90 aS:LOCATE 1,1:PRINT*LIGNE*;NL;*IN 
CORRECTE*:END 
100 ’ 

110 DATA 00,00,00,00,00,00,00,00,00,0 
0 , 00 , 00 , 00 , 00 , 00,000 
120 DATA 00,00,00,00,00,00,00,00,51,0 
0,50,00,05,00,55,OFB 
130 DATA 00,00,51,00,51,00,50,00,05,0 
0,00,00,05,00,55,151 
140 DATA 00,00,00,00,00,F1,A2,A2,A2,A 
0, AO,OA, OA,OF,OA,444 
150 DATA FF,AA,00,00,00,00,51,00,F2,0 
0,50,00,05,00,OF,350 
160 DATA OA,FF,AA,00,00,00,00,F3,A2,0 
0,A2,F0,A0,0A,00,5e4 
170 DATA OF,OA,FF,AA,00,00,00,00,F3,A 
2,00,A2,50,A0,00,4E9 
180 DATA OA,OF,OA,FF,AA,00,00,00,00,A 
2,00,A2,A2,A0,A0,4F2 
190 DATA FO,AO,00,OA,00,AA,00,00,00,0 
0,F3,A2,AO,00,F1,56A 
200 DATA A2,00,A0,0F,0A,FF,AA,00,00,0 
0,00,F3,A2,A2,00,53B 
210 DATA Fl,A2,AO,A0,0F,OA,FF,AA,OO,O 
0,00,00,5A,A2,00,591 
220 DATA A2,OO,AO,OO,0A,OO,OA,0O,AA,O 
0,00,00,00,Fl,A2,393 
230 DATA A0,A2,5A,A0,0A,0A,0F,0A,FF,A 
A,00,00,00,00,F1,503 
240 DATA A2,A0,A2,5A,A0,00,0A,0F,0A,F 
F,AA,00,00,00,00,4AA 
250 DATA 00,00,00,00,00,00,00,00,00,0 
0 , 00 , 00 , 00 , 00 , 00,000 
260 DATA 00,00,00,00,00,00,00,00,00,0 
0 , 00 , 00 , 00 , 00 , 00,000 
270 DATA 00,00,00,0A,05,A0,5A,A2,AF,A 
0,55,OA,00,AA,00,403 
280 DATA 00,00,00,00,OA,05,AO,5A,A2,A 
F,AO,55,OA,00,AA,403 
290 DATA 00,00,00,00,OA,00,A5,00,F2,0 
A,A5,AA,5F,00,AA,403 
300 DATA 00,00,00,00,00,00,00,00,09,0 
0,00,00,00,00,00,009 
310 DATA 00,00,c0,c0,00,00,00,00,00,0 
0,00,00,00,00,00,180 
320 DATA 00,00,00,CO,CO,00,00,F3,A2,A 
0,A2,F0,A2,0A,A0,693 


330 DATA 0A,0A,AA,AA,00,00,00,00,F3,A 

2,AO,A2,FO,00,OA,539 

340 DATA AO,OF,OA,FF,AA,OO,OO,O0,OO,F 

1, A2,A2,00,A0,00,537 

350 DATA OA,00,0F,OA,FF,AA,00,00,00,0 

0,F3,00,A2,A2,AO,4A3 

360 DATA A0,A0,0A,0F,AA,FF,00,00,00,0 

0,00,Fl,A2,A2,00,537 

370 DATA F1,00,0A,00,0F,0A,FF,AA,00,0 

0,00,00,F1,A2,A2,4F2 

380 DATA 00,AO,00,5A,00,OA,00,AA,00,0 

0,00,00,00,F3,A2,343 

390 DATA A2,00,A0,A2,0A,A0,0F,0A,FF,A 

A,00,00,00,00,A2,4F2 

400 DATA A2,AO,A2,FO,AO,OA,AO,OA,OA,A 

A,AA,00,00,00,00,586 

410 DATA F1,A2,51,00,50,00,05,00,OF,0 

A,FF,AA,00,00,00,3FB 

420 DATA 00,50,A2,00,A2,00,AO,OA,OA,0 

F,OA,FF,AA,00,00,40A 

430 DATA OO,O0,A2,A2,A2,AO,FO,0O,OA,A 

0,OA,OA,AA,AA,00,588 

440 DATA 00,00,00,A2,00,AO,00,AO,00,0 

A,00.0F,OA,FF,AA,3AE 

450 DATA 00,00,00,00,F3,A2,A0,A2,0A,A 

0,0A,0A,0A,0A,AA,453 

460 DATA AA,00,00,00,00,F3,00,AO,A2,A 

0,A2,0A,A0,0A,0A,4DF 

470 DATA AA,AA,00,00,00,00,F1,A2,A0,A 

2,0A,A0,0A,0A,0F,4F6 

480 DATA 0A,FF,AA,00,00,00,00,F3,A2,A 

0,A2,F0,A0,0A,00,624 

490 DATA 0A,00,AA,00,00,00,00,00,F3,A 

2, A0.A2,A0,A0.0A,4D5 

500 DATA OA,OF,OA,AF,AA,00,00,00,00,F 

1,A2,A0,A2,A0,A0,S91 

510 DATA 0F,00,0A,ÛA,AA,AA,00,00,00,0 

0,F3,A2,A0,00,F0,49C 

520 DATA A0,O0,0A,0F,0A,FF,AA,00,O0,O 

0,00,F1,A2,51,00,450 

530 DATA 51,00,50,09,05,00,55,00,00,0 

0,00,00.A2,A2,A2,2E1 

540 DATA A2,AO,A2,OA,AO,OF,OA,FF,AA,0 

0,00,00,00,A2,A2,594 

550 DATA A2,A2,AC,A0,5A,0A,AF,AA,55,0 

0,00,00,00,00,A2,538 

560 DATA A2,A0,A2,0A,A0,0F,A0,5F,0A,A 

A,AA,00,00,00,00,4FA 

570 DATA A2,A2,A0,A2,50,OO,0A,A0,OA,O 

A,AA,AA,00,00,00,4E6 

560 DATA 00,A2,A2,AO,A2,5A,A2,05,00,0 

5,00,55,00,00,00,3E1 

590 DATA 00,00,F1,A2,00,A2,50,00,0A,0 

0,0F,OA,FF,AA,00,451 


600 DATA 00,10,30,30,30,30,CC,CC,CC,6 
4,CC,3F,3F,64,9D,5E3 

610 DATA 3D,3F,64,3E,3E,3£,64,3F,3D,3 

C,64,3E,3E,79,64,473 

620 DATA 3F,3C,79,64,3E,3C,F3,64,3E,7 

9,F3,64,3E,79,F3,6E1 

630 DATA 30,30,30,20,CC,CC,CC,30,3F,3 

F,CC,98,3F,3E,6E,611 

640 DATA 98,3D,3D,3D,90,3C,3E,3F,98,B 

6,3D,3D,98,B6,3C,5F2 

650 DATA 3F,98,F3,3C,3D,98,F3,B6,3D,9 

6, F3,B6,3D,96,64,83B 

660 DATA 3E,79,F3,64,3E,3C,F3,64,3E,3 

C, F3,64,3F,3C,79,6A4 

670 DATA 64,3E,3E,76,64,3F,3D,3C,64,3 

■E,3E,3E,64,9D,3D,4D1 

680 DATA 3F,64,CC,3F,3F,30,CC,CC,CC,1 

0,30,30,30,F3,B6,6CA 

690 DATA 3D,98,F3,B6,3D,98,F3,3C,3D,0 

8,B6,3C,3F,98,B6,7D6 

700 DATA 3D,3D,98,3C,3E,3F,98,3D,3D,3 

D, 98,3F,3E,6E,96,535 

710 DATA 3F,3F,CC,98,CC,CC,CC,30,30,3 

0,30,20,F3,F3,F3,7FF 

720 DATA F3,OF,5B,OF,5B,OF,5B,OF,5B,0 

F,5B,0F,5B,F3,F3,555 

730 DATA F3,F3,F3,F3,5B,5B,A7,F3,5B,5 

B,5B,5B,A7,F3,5B,97D 

740 DATA F3,F3,F3,F3,F3,F3,F3,5B,59,A 

7, F3,50,5B,59,5B,A5B 

750 DATA A7,F3,5B,F3,F3,F3,F3,F3,F3,F 

3,0C,59,A6,F3,0C,AA4 

760 DATA F3,0C,59,A6,F3,0C,F3,F3,F3,F 

3,F3,F3,F3,50,F3,AE£ 

770 DATA A6,F3,59,59,59,59,A6,F3,59,F 

3,F3,F3,F3,F3,F3,AA1 

780 DATA F3,50,F3,0C,5g,5g,59,59,56,A 

6,F3,0C,59,F3,F3,7EC 

790 DATA F3,F3,F3,F3,FB,F3,FF,FB,FB,F 

B, FB,FB,F7,F3,FF,E69 

800 DATA FB,F3,F3,CO,CO,CO,DO,F3,EO,D 

1,F2,4A,D1,A5,48,BBF 

810 DATA D0,0E,EA,C0,C0,C0,30,30,30,C 

C, CC,CC,3F,3F,3F,7B9 

820 DATA X,3C,3C,F3,F3,3C,79,F3,F3,F 

3, B6,3F,3E,F3,F3,941 

830 DATA F3,B7,CC,9D,F3,F3,F3,E6,30,6 

4, F3,F3,F3,B2,C0,BB1 

840 DATA 00,F3,F3,F3,E2,FF,EA,F3,F3,3 

C,68,A£,EA,3C,79,B0B 

850 DATA 3F,6A,AE,EA,3F,7B,CC,C8,AE,E 

A,CC,D9,30,60,AF,90B 

860 DATA EA,30,71,C0,C0,AF,EA,C0,D1,D 

5, FF,FA,FF,FF,D1,BD2 

870 DATA D5,0D,F1,0C,5D,D1,D5,0C,59,A 
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5,5D,Dl,I»,FF,FA,8Ee 

880 DATA FF,FF,D1,C0,C0,AF,EA,C0,D1,3 

0,60,AF,EA,30,71,A43 

890 DATA CC,C8,AE,EA,CC,D9,3F,6A,AE,E 

A,3F,7B,3C,68,FF,96F 

900 DATA EA,3C,79,F3,E2,C0,C0,F3,F3,F 

3,B2,30,30,F3,F3,AC5 

910 DATA 30,CC.3F,3F,3C.3C,3F,3F,CC,3 

0,64,3E,F3,F3,F3,6E7 

920 DATA F3,20,10,F3,F3,F3,F3,3D,98,3 

C,3F,CC,30,30,CC,837 

'930 DATA 3F,3C,3C,3C,3C,3C,3C,3C,3C,3 

'C,3C,3C,3C,3F,3F,38D 

940 DATA 3F,3F,3F,3F,3F,3F,3F,3F,3F,C 

C,CC,CC,CC,CC,CC,6FF 

950 DATA CC,CC,CC,CC,CC,30,30,30,30,3 

0,30,30,30,30,30,5DC 

960 DATA 30,60,CO,CO,CO,CO,CO,CO,CO,C 

0,C0,90,60,C0,C0,9C0 

970 DATA CO,CÛ,CO,CO,CO,CO,CO,90,60,C 

0,C0,C0,C0,C0,CÛ,AB0 

980 DATA CO,30,60,90,60,CO,CO,CO,CO,C 

0,C0,C0,CC,C8,90,9A4 

990 DATA 60,CO,CO,CO,CO,CO,CO,CO,2A,6 

A,90,60,C0,C0,C0,964 

1000 DATA CO,CÛ,C0,CO,3C,68,9O,6O,CO, 

CO,CO,CO,CO,CO,CO,9D4 

1010 DATA CO,6A,90,6Û,CO,CO,CO,CO,CO, 

C0,C0,CC,C0,90,60,9DE 

1020 DATA CO,C0,CO,CÛ,C0,CÛ,CO,3O,6O, 

90,60,CO,CO,CO,CO,9C0 

1030 DATA C0,C0,C0,C0,C0,9O,6O,CÛ,3O, 

60,30,60,30,60,30,750 

1040 DATA CO,90,6O,CO,CC,C8,CC,C8,CC, 

C8,CC,C0,90,60,C0,A68 

1050 DATA 2A,6A,C0,6A,2A,6A,95,C0,90, 

60,CO,28,68,X,68,68B 

1060 DATA 28,68,94,C0,90,60,C0,2A,6A, 

6A,C0,2A,6A,95,C0,73B 

1070 DATA 90,60,C0,CC,C8,CC,C8,CC,C8, 

CC,C8,90,60,CO,30,9EO 

1080 DATA 60,30,60,30,60,30,60,90,60, 

CO,CO,CO,CO,CO,CO,780 

1090 DATA C0,C0,C0,90,60,C0,C0,C0,C0, 

CO,CO,CO,CÛ,CO,90,A80 

1100 DATA 30,30,30,30,30,30,30,30,30, 

30,30,CC,CC,CC,CC,540 

1110 DATA CC,CC,CC,CC,CC,CC,CC,3F,3F, 

3F,3F,3F,3F,3F,3F,78C 

1120 DATA 3F,3F,3F,X,3C,3C,3C,3C,3C, 

3C,3C,3C,3C,3C,00,351 

1130 DATA 00,00,40,c0,00,00,00,00,00, 

00,00,00,00,95,98,22D 

1140 DATA 80,00,00,00,00,00,00,00,00, 

C4,30,CO,00,00,00,234 


1150 DATA 00,00,00,00,00,40,85,A7,80, 

00,00,00,00,00,00,IEC 

1160 DATA 00,00,84,OE,80,00,00,00,00, 

00,00,00,00,05,50,244 

1170 DATA 80,00,00,00,00,00,00,40,c0, 
C0,E2,C0,00,00,00,3C2 
1180 DATA 00,CO,CO,85,A7,5D,F5,OD,80, 
00,00,00,D1,F3,C0,70F 
1190 DATA 64,C8,4A,a,60,00,00,00,85, 
Dl,05,90,89,A3,6E,6EF 
1200 DATA C8,00,00,00,D1,85,EA,90,C8, 
E2,9D,C8,00,00,00,6A7 
1210 DATA 85,F3,C0,90,D9,94,64,60,00, 
00,00,84,0F,CO,64,6B0 
1220 DATA 21,A3,98,60,00,00,00,D5,OC, 
C0,30,30,12,30,EA,4E9 
1230 DATA 00,00,00,D5,FF,D5,85,5D,5F, 
4A,05,80,00,00,40,5C9 
1240 DATA F1,F7,CÛ,C0,4A,C0,CÛ,EA,C0, 
80,40,5A,A6,5B,C0,9B7 
1250 DATA 48,C0,C0,F3,0E,EA,40,59,5F, 
0D,E2,EA,C0,D1,A5,8BA 
1260 DATA EA,80,40,0F,E2,E2,F3,F3,F3, 
F2,0E,60,00,40,0E,824 
1270 DATA 4A,4A,4A,4A,5B,5B,5D,80,00, 
40,0D,0D,0D,0D,0D,33C 
1280 DATA 0D,0D,EA,00,00,40,AE,0E,AE, 
AE,AE,AE,AE,80,00,5E6 
1290 DATA 00,00,D5,5D,FF,FF,FF,FF,FF, 
80,00,00,00,40,CO,7AD 
1300 DATA CO,C0,C0,CO,C0,OO,OO,0O,OO, 
00,00,00,00,00,c0,480 
1310 DATA 80,00,00,00,00,00,00,00,00, 
40,64,6A,00,00,00,18E 
1320 DATA 00,00,00,00,00,C0,30,C8,00, 
00,00,00,00,00,00,168 
1330 DATA 40,5B,4A,80,00,00,00,00,00, 
00,00,40,OD,48,00,IFA 
1340 DATA 00,00,00,00,00,00,00,40,AE, 
EA,00,00,00,00,00,1D8 
1350 DATA 00,00,00,CO,D1,CO,CO,80,00, 
00,00,00,00,40,OE,3DF 
1360 DATA FA,AE,5B,4A,C0,C0,00,00,00, 
90,C8,85,C4,98,C0,7C6 
1370 DATA F3,E2,00,00,00,C4,9D,53,46, 
60,EA,E2,4A,00,00,645 
1380 DATA 00,C4,6E,D1,C4,60,D5,4A,E2, 
00,00,00,90,98,68,668 
1390 DATA E6,60,C0,F3,4A,00,00,00,90, 
64,53,12,98,C0,0F,603 
1400 DATA 48,00,00,00,D5,30,21,30,30, 
CO,OC,EA,00,00,40,3C4 
1410 DATA EA,65,AF,AE,4A,EA,FF,EA,40, 
CO,D5,CO,CO,85,CO,A83 


1420 DATA CO,FB,F2,80,D5,OD,F3,CO,CO, 

64,C0,A7,59,A5,80,9EB 

1430 DATA 40,D5,5A,E2,C0,D5,D1,0E,AF, 

A6,80,00,40,OD,F1,7D8 

1440 DATA F3,F3,F3,D1,D1,0F,80,00,40, 

AE,A7,A7,85,65,85,6D5 

1450 DATA e5,0D,80,O0,0û,D5,OE,0E,0E, 

ÛE,0E,0E,0E,80,Û0,2C9 

1460 DATA 00,40,5D,5D,5D,5D,5D,0D,5D, 

80,00,00,40,FF,FF,539 

1470 DATA FF,FF,FF,AE,EA,00,00,00,00, 

CO,CO,CO,CO,CO,CO,915 

1480 DATA 80,00,00,00,00,00,00,00,00, 

CO,80,00,00,00,00,ICO 

1490 DATA 00,00,00,00,CO,F3,E2,00,00, 

00,00,00,00,00,40,205 

1500 DATA F3,6E,80,00,00,00,40,CO,80, 

00,Dl,66,98,80,00,600 

1510 DATA 00,00,D1,F3,E2,C0,F3,3D,60, 

00,00,00,40,F3,F3,71C 

1520 DATA F3,F3,F3,6E,60,00,00,00,D1, 

3C,3C,F3,DB,F3,B2,863 

1530 DATA 60,00,40,80,94,3F,3E,6D,5D, 

F3,F3,60,00,D1,E2,6F4 

1540 DATA 95,CC,9D,3E,DB,F3,F3,E2,00, 

Dl,3D,a,30,64,9D,8E2 

1550 DATA 79,F3,F3,E2,C0,B6,6A,90,53, 

12,64,3E,F3,F3,79,917 

1560 DATA E2,3C,80,D1,53,03,12,9C,79, 

B6,B6,F3,79,80,01,815 

1570 DATA 53,53,53,35,3E,F3,30,76,79, 

80,94,16,53,16,7B,59E 

1580 DATA B7,B6,6E,9D,79,80,81,2S,3C, 

03,66,F3,67,98,64,766 

1590 DATA 79,8Û,D1,53,03,F3,30,F3,6E, 

30,90,79,80,94,66,764 

1600 DATA F3,3C,3F,F3,30,C0,90,79,80, 

95,3D,3C,3F,9D,79,73D 

1610 DATA CO,80,90,3E,80,C4,6E,3F,CC, 

64,3E,E2,E2,40,9C,80D 

1620 DATA E2,90,96,CC,30,30,90,79,68, 

40,35,68,40,30,30,631 

1630 DATA 60,CO,64,3E,6A,00,a,3E,00, 

CO,CO,80,40,30,90,636 

1640 DATA C8,00,90,C8,00,00,00,00,00, 

90,64,60,00,40,80,434 

1650 DATA 00,00,00,00,00,00,90,60,00, 

00,00,00,00,40,CO,210 

1660 DATA 00,00,00,00,00,00,00,00,00, 

D1,F3,C0,00,00,00,284 

1670 DATA 00,00,00,00,00,40,9D,F3,60, 

00,00,00,00,00,00,250 

1680 DATA 00,40,64,76,E2,00,40,CO,80, 

00,00,00,00,90,3E,44D 

1690 DATA F3,CO,D1,F3,E2,00,00,00,00, 


( 
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90,9D,F3,F3,F3,F3,952 

1700 DATA F3,B0,A0,8O,0O,90,71,F3,E7, 

F3,3C,3C,E2,D1,E2,90E 

1710 DATA 00,90,F3,F3,AE,9E,3D,3F,6e, 

3E,E2,00,D1,F3,F3,87D 

1720 DATA E7,3D,6E,CC,6A,95,79,C0,D1, 

F3,F3,B6,6E,96,30,939 

1730 DATA C8,A0,3C,D1,B6,F3,F3,3D,98, 

21,A3,60,40,B6,F3,893 

17A0 DATA 79,79,B6,6C,21,03,A3,E2,A0, 

B6,B7,3E,F3,3D,3A,712 

1750 DATA A3,A3,A3,E2,40,B6,6E,9D,79, 

7B,B7,29,A3,29,68,7DA 

1760 DATA 40,B6,98,6A,7B,F3,79,03,3C, 

16.42.40, B6,60,30,5F6 

1770 DATA 9D,F3,3E,F3,03,A3,E2,40,B6, 

60,C0,30,F3,3F,3C,7FD 

1780 DATA F3,79,68,40,3D,60,40,C0,B6, 

6E,3F,3C,3E,6A,D1,6C9 

1790 DATA 6C,80,D1,D1,3D,98,CC,3F,9D, 

C8,94,3A,80,94,B6,06B 

1800 DATA 6E,30,30,CC,64,60,3D,Ca,00, 

95,3D,96,C0,90,30,64D 

1810 DATA 30,00,C4,60,00,C4,6E,30,80, 

40,CO,CO,00,40,80,636 

1820 DATA 00,90,96,60,00,00,00,00,00, 

00,00,00,40,60,00,228 

1830 DATA 00,00,00,00,00,00,00,00,60, 

00,00,00,40,E2,00,1A2 

1840 DATA 00,00,40,F3,80,00,00,D1,A7, 

80,00,40,F3,A6,80,604 

1850 DATA 00,D1,F3,5F,80,00,D1,0F,5D, 

80.40, F3,A7,FF,60,7B9 

1860 DATA 40,A7,A7,A7,BO,D1,OE,OE,F3, 

80,D1,F7,5D,5B,E2,877 

1670 DATA D1,0E,AF,0D,E2,85,5D,AE,AE, 

4A,00,51,00,00,14,56A 

1660 DATA A3,66,00,29,28,29,26,02,02, 

02,02,00,51,00,00,254 

1890 DATA 3C,A3,86,28,03,26,29,02,00, 

02,02,00,28,51,00,290 

1900 DATA 26,16,A3,B6,02,01,28,29,00, 

00,02,02,00,51,00,240 

1910 DATA F3,F3,5B,0F,0D,AE,AE,5D,55, 

AA,F3,A5,0A,F2,7A,823 

1920 DATA 0A,FF,DD,AA,F3,70,A2,F2,A5, 

A0,A5,A5,0A,FF,FF,A1E 

1930 DATA AA,FF,CO,FF,EA,FF,EA,FF,EA, 

OC,CO,OC,46,OC,48,998 

1940 DATA 0C,48,C5,C0,CA,CA,CA,CA,CA, 

CA,D1,C0,E2,E2,E2,ACC 

1950 DATA E2,E2,E2,C5,C0,CA,CA,CA,CA, 

CA, a, OC, 48, OC, 48,98F 

1960 DATA OC,46,OC,48,FF,EA,FF,EA,FF, 

EA,FF,EA,00,00,00,84C 



1970 DATA 00,00,00,00,00,00,00,00,00, 
00 , 00 , 00 , 00 , 00 , 00,000 
1980 DATA 00,00,00,00,00,00,00,00,00, 
00 , 00 , 00 , 00 , 00 , 00,000 
1990 DATA 00,00,00,00,00,00,00,00,00, 
00 , 00 , 00 , 00 , 00 , 00,000 
2000 DATA 00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,55,055 
2010 DATA 00,00,00,00,00,04,00,00,00, 
00,00,05,00,00,00,009 
2020 DATA 00,00,50,00,00,00,00,00,FB, 
AA,00,00,AE,5A,F3,3FO 
2030 DATA F2,0E,AA,00,00,FB,AA,00,00, 
00,00,50,00,00,00,39F 
2040 DATA 00,00,05,00,00,00,00,00,04, 
00,00,00,79,79,79,174 
2050 DATA 79,79,79,3D,3D,3D,3D,3D,3D, 
6E,6E,6E,6E,6E,6E,56D 
2060 DATA 9D,9D,9D,9D,9D,9D,CC,CC,CC, 
CC,CC,CC,CC,CC,CC,ADA 
2070 DATA CC,CC,CC,64,64,64,64,64,64, 
98,96,98,96,98,96,84C 
2080 DATA 64,64,64,64,64,64,30,30,30, 
30,30,30,00,00,00,378 
2090 DATA 00,00,00,00,00,00,00,00,00, 
00 , 00 , 00 , 00 , 00 , 00,000 
2100 DATA 00,00,00,00,00,00,00,00,00, 
00 , 00 , 00 , 00 , 00 , 00,000 
2110 DATA 00,00,00,00,00,00,00,00,00, 
00,00,00,CO,00,00,oco 
2120 DATA 00,00,C0,64,80,00,00,40,56, 
1A,C6,00,00,00,00,321 
2130 DATA 00,00,00,00,00,00,00,00,00, 
00 , 00 , 00 , 00 , 00 , 00,000 
2140 DATA 00,00,00,00,00,00,00,00,00, 
00 , 00 , 00 , 00 , 00 , 00,000 
2150 DATA 00,00,00,00,00,00,80,00,40, 
00,00,00,E2,00,90,232 
2160 DATA 00,00,40,F3,CO,60,00,00,D1, 
A7,90,C0,00,40,AF,60A 
2170 DATA 48,6A,00,00,40,AE,EA,C0,00, 
00,CO,Dl,CO,CO,40,696 
2160 DATA 4O,0E,FB,AE,5B,85,55,4D,85, 
C5,9A,D1,84,F3,B2,857 
2190 DATA E7,EAi7i,75,F3,35,71,48,Dl, 
84,D6,CE,CF,5D,D1,993 
2200 DATA D5,4D,16,48,AE,C5,C0,AE,AE, 
D5,50,84,00,00,00,6C7 
2210 DATA 00,00,00,C0,C0,00,00,00,00, 
5A,E2,00,00,00,00,2BC 
2220 DATA AF,EO,OÛ,00,00,00,F7,4A,00, 
00,00,00,D1,EA,00,46B 
2230 DATA 00,00,00,CO,E2,00,00,00,00, 
Dl,CA,00,00,00,00,330 


2240 DATA 4D,48,00,00,00,00,AE,80,00, 
00,00,00,00,40,F3,2F6 
2250 DATA A6,E7,50,00,D1,F3,5F,C0,F5, 
00,D1,0F,5D,C0,5B,81A 
2260 DATA 40,F3,A7,FF,C0,48,40,A7,A7, 
A7,C0,EA,D1,0E,0E,6AD 
2270 DATA F3,C0,65,D1,F7,5D,5B,E2,84, 
D1,0E,AF,0D,E2,DS,970 
2280 DATA 85,5D,AE,AE,4A,C0,C0,C0,C0, 
C0,C0,C0,EA,D5,FF,A86 
2290 DATA C0,EA,FF,O0,C0,85,C5,C0,FB, 
AE,4A,84,64,C0,48,983 
2300 DATA F7,0D,D5,D5,84,AF,D0,D0,F2, 
E2,D1,CO,CO,85,85,ABO 
2310 DATA 85,65,85,0E,84,B4,84,84,84, 
5D,5D,5D,5D,5D,00,60F 
2320 DATA FF,FF,FF,FF,FF,AE,CO,CO,CO, 
CO,CO,CO,EA,60,00,893 
2330 DATA 00,00,00,94,80,00,00,00,00, 
EO,C8,00,00,00,00,2BC 
2340 DATA C0,60,00,00,00,00,1A,80,00, 
00,00,00,OD,80,00,247 
2350 DATA 00,00,00,OE,BO,00,00,00,00, 
50,60,00,00,00,00,16B 
2360 DATA EA,00,00,00,00,00,80,00,00, 
00,00,00,00,00,00,16A 
2370 DATA 00,00,00,00,00,00,00,00,00, 
00 , 00 , 00 , 00 , 00 , 00,000 
2380 DATA 00,00,00,00,00,00,00,00,00, 
00 , 00 , 00 , 00 , 00 , 00,000 
2390 DATA 00,00,00,00,00,00,00,00,00, 
00,00,00,00,3F,00,03F 
2400 DATA 00,00,00,15,3C,2A,15,2A,15, 
3E,F3,28,00,00,00,228 
2410 DATA 00,00,00,00,00,00,00,00,00, x 
00 , 00 , 00 , 00 , 00 , 00,000 
2420 DATA 00,00,00,00,00,00,00,00,00, 
00 , 00 , 00 , 00 , 00 , 00,000 
2430 DATA 00,00,00,00,00,00,00,00,00, 
00 , 00 , 00 , 00 , 00 , 00,000 
2440 DATA 15,2A,00,00,00,00,3E,3D,00, 
00,00,00,3E,B7,3D,1EC 
2450 DATA 79,F3,F3,F3,F3,B6,F3,F3,F3, 
79,B6,F3,F3,F3,F3,CCF 
2460 DATA 3E,3D,79,F3,79,B6,9D,6E,7B, 
F3,3E,3D, 64,98,30,742 
2470 DATA B6,9D,6E,10,20,3E,30,64,98, 
00,00,9D,6E,10,20,4A3 
2480 DATA 00,00,64,96,00,00,00,00,10, 
20,00,00,F3,66,00,205 
2490 DATA 00,00,00,79,66,00,00,00,00, 
3E,30,00,00,00,00,lAA 
2500 DATA 9D,6E,00,00,00,00,64,96,00, 
00,00,00,10,20,00,237 
2510 DATA 00,00,00,00,00,00,00,00,00, 
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00 , 00 , 00 , 00 , 00 , 00,000 
2520 DATA 00,00,00,00,00,00,00,00,00, 
00 , 00 , 00 , 00 , 00 , 00,000 
2530 DATA 00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,80,080 
2540 DATA 00,00,00,00,40,E2,00,00,00, 
00,40,73,00,00,00,1D5 
2550 DATA 00,91,93,00,00,00,00,Dl,91, 
00,00,00,00,91,C1,3D8 
2560 DATA 00,00,00,00,01,84,00,00,00, 
00,40,D5,00,00,00,254 
2570 DATA 00,00,00,00,00,00,00,00,00, 
00,00,00,00,40,80,180 

t 2580 DATA B3,80,00,40,D1,E2,63,E2,00, 

91,F3,73,02,62,40,706 
2590 DATA 63,73,93,04,02,D1,02,D3,01, 
48,80,91,00,98,01,991 
2600 DATA EA,00,01,00,49,91,67,80,40, 
40,AE,01,00,00,00,69B 
2610 DATA 00,00,40,00,00,00,00,00,40, 
00,00,00,00,00,40,000 
2620 DATA 00,00,00,00,00,00,00,00,00, 
00,00,F1,40,AE,5B,6ÛA 
2630 DATA 0E,FA,F2,00,00,4A,4A,F1,A5, 
00,40,48,58,FO,OE,602 
2640 DATA 00,40,EA,FB,A7,50,00,00,00, 
00,00,00,86,80,00,737 
2650 DATA C5,F7,OÛ,5D,80,00,84,OA,F2, 
FA,E0,00,D5,59,F1,992 
2660 DATA F1,F2,00,F3,FA,F2,F0,F3,F1, 
F2,F2,A5,5A,FO,FO,D19 
2670 DATA F0,F1,5A,A5,A5,F0,5A,AS,A5, 
0E,5A,A5,0D,F0,0E,83t 
2680 DATA 5D,0D,0E,AE,0F,5D,00,00,00, 
00,00,00,00,00,00,612 

datas 2_ 
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20 ’ DATAS pour PiRATE2.BIN 
30 » 

40 HODE 2:AD=&C000:NL=li0 

50 FOR B=1 TO 465:T0T=0:F0R T=0 TO 14 

:READ A$ 

60 POKE AD,VAL(»A"tA$):TOT=TOTiPEEK(A 
D):AD=ADn 

70 MEXT:READ S0H$;IF VAL(*fc*+SOMI)<>T 
OT THEN 90 

80 JIL=HL+10:MEXT;SAVE*PIRATE2.BIN%B, 
fitC000,&ifi37:CLS:END 
90 CLS:LOCATE l,l:PRIHT«LIGHE";NL;"IN 
CORRECTE*:END 
100 » 

110 DATA C3,37,75,67,90,CE,76,21,EE,B 



D, 36,C9,06,00,0E,689 

120 DATA 00,CD,38,BC,CD,27,83,AF,CD,0 

E, BC,CD,76,76,21,758 

130 DATA 64,00,22,CD,85,3E,0l,11,80,8 

8,CD,56,8C,3E,0D,52A 

140 DATA CD,96,BB,CD,27,83,AF,CD,0E,B 

C, CD,6C,BB,CD,C5,961 

150 DATA 83,DD,21,B6,86,06,0E,CD,A2,7 

7,21,48,86,06,06,582 

160 DATA CD,71,77,21,D0,52,11,AC,E8,0 

6,36,0E,01,3E,05,52B 

170 DATA CD,91,77,21,D5,52,11,EC,CE,0 

6,36,0E,01,3E,05,576 

180 DATA CD,91,77,21,DA,52,11,98,C1,0 

6,68,0E,07,3E,01,54E 

190 DATA CD,7D,77,21,E1,52,11,CF,C1,0 

6,68,0E,07,3E,01,578 

200 DATA CD,7D,n,21,DA,52,ll,48,Cl,0 

6,8B,0E,02,3E,01,508 

210 DATA CD,7D,77,21,E6,52,11,84,C1,0 

6,8B,0E,02,3E,01,550 

220 DATA CD,7D,77,21,E8,52,11,4E,E9,0 

6,32,0E,01,3E,04,4ED 

230 DATA CD,91,77,21,EC,52,11,5E,ED,0 

6,32,0E,01,3E,04,519 

240 DATA CD,91,77,CD,38,83,C3,55,77,4 

9,4E,53,45,52,54,6C1 

250 DATA 20,43,4F,49,4E,2A,3A,1A,86,C 

D, 1E,BB,C2,08,76,533 

260 DATA 06,96,CD,A8,83,3E,01,32,C8,6 

5, CD,B1,7E,CD,C9,7E4 

270 DATA 7E,CD,27,83,CD,C5,83,CD,B7,8 

3,21,F0,52,11,C7,84C 

280 DATA E5,01,0B,00,3E,1B,CD,88,82,3 

E, 09,32, DO, 85, C6,585 

290 DATA 30,32,CD,87,21,CD,87,11,1F,D 

6, CD,CE,82,21,00,66F 

300 DATA 00,22,CD,85,AF,32,D2,85’,32,7 

D,85,32,CF,85,32,698 

310 DATA 06,85,32,17,85,32,28,85,32,0 

1,85,32,E0,85,32,589 

320 DATA DF,85,32,E4,85,32,04,85,C3,8 

F, 76,21, E8,85,22,802 

330 DATA E7,85,21,F2,85,22,F1,85,21,F 

8,85,22,F7,85,21,7F9 

340 DATA FA,85,22,F9,85,C9,AF,32,CF,8 

5, CD, 38,82, CD, 97,908 

350 DATA 83,CD,85,80,CD,5A,83,CD,B2,7 

8,CD,38,83,C3,C7,938 

360 DATA 77,21,C4,76,11,16,86,01,05,0 

0,ED,B0,C3,08,76,563 

370 DATA 21,C9,76,ll,16,86,01,05,00,E 

D,80,C3,08,76,48,539 

380 DATA 49,4A,48,4C,00,02,08,01,2F,3 


A,D0,85,3D,FE,00,42E 

390 DATA C2,DD,76,3E,01,32,CF,85,AF,3 

2,00,85,21,10,00,641 

400 DATA CD,CE,84,01,50,4E,09,11,1F,D 

6,01,02,00,3E, 08,416 

410 DATA C3,88,82,01,1D,01,C5,3E,12,C 

D,1E,BB,C4,4D,83,63B 

420 DATA CD,75,82,CD,80,7C,CD,D6,83,C 

D, B5,80,C1,0B,78,8F9 

430 DATA B1,FE,00,C2,F8,76,06,FA,CD,A 

8,83,06,FA,CD,A8,94C 

440 DATA 83,CD,C5,83,21,10,27,11,9F,C 

9,01,30,00,3E,64,53C 

450 DATA CD,88,82,21,1B,86,06,02,CD,7 

1,77,06,FA,CD,A8,6CB 

460 DATA 83,06,FA,CD,A8,83,06,FA,CD,A 

8,83,06,FA,CD,A8,8E8 

470 DATA 83,06,FA,CD,A8,83,C3,60,75,3 

E, 4C,CD,1E,BB,C2,805 

480 DATA A6,76,3E,2F,CD,1E,BB,C2,B6,7 

6, C3,55,77, CD, 00,778 

490 DATA BB,21,EE,8D,36,C9,C9,C5,5E,2 

3,56,23,CD,CE,82,828 

500 DATA C1,10,F5,C9,C5,F5,E5,D5,06,0 

0,CD,88,82,E1,CD,98E 

510 DATA 26,BC,EB,E1,F1,C1,10,ED,C9,C 

5,F5,E5,D5,06,00,9A0 

520 DATA CD,88,82,D1,13,E1,FI,C1,10,F 

0,C9,C5,DD,E5,DD,A78 

530 DATA 5E,00,DD,56,01,DD,6E,02,DD,6 

6,03,DD,4E,04,06,55A 

540 DATA 00,DD,TE,06,CD,88,82,DD,El,1 

1,08,00,DD,19,C1,6C6 

550 DATA 10,DC,C9,3A,F2,84,FE,00,C4,F 

E,80,3A,DF,85,FE,941 

560 DATA 01,CA,F5,76,3A,CF,85,FE,01,C 

A,84,80,3A,C7,85,817 

570 DATA FE,01,CA,F5,76,3A,F2,84,FE,0 

0,C2,0C,78,3A,E5,847 

580 DATA 85,FE,01,CA,F9,7F,3A,16,86,C 

D, 1E,BB,C2,6F,78,7EB 

590 DATA CD,7F,78,3A,lA,æ,CD,lE,BB,C 

4,E0,7E,CD,E1,7E,892 

600 DATA CD,75,82,CD,80,7C,3E,12,CD,1 

E, BB,C4,4D,83,3E,755 

610 DATA 42,CD,1E,8B,C2,84,80,C3,C7,7 

7,3A,F2,84,FE,00,85D 

620 DATA C4,FE,80,3A,F2,84,FE,00,C2,4 

1,78,3A,1A,86,CD,812 

630 DATA 1E,BB,C4,E0,7E,CD,E1,7E,CD,7 

5,82,CD,80,7C,3E,8F2 

640 DATA 12,CD,1E,8B,C4^4D,83,C9,3A,F 

2,84,FE,00,C0,3A,7BD 

650 DATA E3,85,FE,01,CA,68,78,21,21,5 

5,22,EB,84,C9,21,723 
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660 DATA 19,54,22,EB,84,C9,3A,F2,84,F 

E,00,C2,0C,78,3E,6F9 

670 DATA 01,32,E5,85,C3,C7,'77,3A,F2,8 

4,FE,00,C0,3A,19,75F 

680 DATA 86,CD,lE,BB,C2,E2,7£,3A,i8,8 

6,CD,IE,BB,C2,AF,83D 

690 DATA 7F,C9,21,A0,00,3E,64,E5,E5,3 

6,CO,01,13,01,09,659 

700 DATA 00,ED,B0,E1,11,46,00,19,3D,C 

8,C3,9D,78,CD,38,6D0 

710 DATA 82,CD,4A,82,3A,£4,85,21,50,0 

0,CD,CE,84,01,77,6C6 

720 DATA 8F,09,11,E3,05,06,0A,C5,E5,D 

5,06,08,C5,E5,D5,6AD 

730 DATA D5,7E,21,3C,00,CD,CE,84,01,C 

7,58,09,01,01,06,500 

740 DATA 00,3E,OA,CD,06,84,E1,11,06,0 

0,19,EB,El,23,Cl,560 

750 DATA 10,DD,E1,11,BC,02,19,EB,E1,0 

1,08,00,09,C1,10,565 

760 DATA CA,21,E3,05,11,9F,C9,01,30,0 

0,3E,64,C3,84,84,5EA 

770 DATA DD,21,28,85,06,04,DD,36,00,0 

1,11,80,58,00,73,502 

780 DATA 07,DD,72,08,DD,36,09,05,DD,3 

6,0A,0B,CD,A1,85,59A 

790 DATA DD,77,OB,DD,36,00,00,DD,36,0 

E,00,11,11,00,DD,49F 

800 DATA 19,10,D6,DD,21,28,85,DD,36,0 

C, 50,DD,21,39,85,505 

810 DATA DD,36,OC,3C,DD,21,4A,85,DD,3 

6,0C,32,DD,21,5B,5D2 

820 DATA 85,DD,36,0C,64,DD,21,6C,85,D 

0,36,00,01,11,69,585 

830 DATA 56,DO,73,07,DD,72,08,DD,36,0 

9,08, DD, 36, OA, 10,555 

840 DATA DD,36,OB,94,DD,36,OC,8E,DD,3 

6,0D,00,3E,01,32,4F0 

850 DATA C8,85,C9,DD,21,70,85,DD,36,0 

0,01,11,CB,58,DD,73B 

860 DATA 73,07,DD,72,08,DD,36,09,08,0 

D, 36,0A,07,DD,36,52C 

870 DATA 0B,8F,DD,36,0C,8C,C9,DD,21,1 

7,85,DD,36,0D,00,5C8 

880 DATA 26,87,2E,4B,3E,01,CD,DE,79,D 

D, 21,39,85,00,36,658 

890 DATA 0D,01,26,73,2E,5F,3E,01,CD,D 

E, 79,DD,21,5B,85,575 

900 DATA DD,36,00,02,26,96,2£,55,3E,0 

2, C3, DE, 79, DD, 77,60F 

910 DATA 00,11,7A,58,DD,73,07,DD,72,0 

8,[»),36,09,04,DD,58E 

920 DATA 36,OA,04,DD,74,OB,DD,75,OC,D 

D,36,0E,00,C9,DD,5C5 

930 DATA 21,17,85,CD,2A,7A,CD,61,7A,D 



D, 21,39,85,CD,2A,689 
j 940 DATA 7A,CD,61,7A,DD,21,5B,85,CD,2 

A,7A,CD,6i,7A,CD,7E6 
950 DATA E1,7A,DD,21,17,85,11,11,00,0 
6,06,C3,12,81,3E,4B7 
960 DATA 03,21,10,00,01,7A,58,CD,81,7 

E, DD,7E,00,FE,01,52D 
970 DATA CA,43,7A,FE,02,CA,52,7A,C9,D 
D,7E,0B,3C,DD,77,7DC 
980 DATA OB,FE,A5,D8,DD,36,00,02,C9,D 
D,7E,0B,3D,DD,77,75B 
990 DATA 0B,FE,66,D0,DD,36,00,01,C9,D 
D,7E,11,FE,00,C2,748 
1000 DATA 9D,7A,DD,E5,FD,E1,11,11,00, 
DD,19,CD,8E,85,DD,88C 
1010 DATA 77,00,11,AA,58,DD,73,07,DD, 
72,08, DD, 36,09,02,556 
1020 DATA DD,36,0A,06,FD,7E,0B,3C,DD, 
77,0B,FD,7E,0C,C6,691 
1030 DATA 03,DD,77,OC,DD,36,OE,00,C9, 
11,11,00,DD,19,CD,532 
1040 DATA B3,7A,DD,7E,00,FE,01,CA,C3, 
7A,FE,03,CA,D2,7A,8A5 
1050 DATA C9, DD, TE, OC,C6,05, DD, 77, OC, 
FE,CD,D8,DD,36,00,811 
1060 DATA OO,C9,DO,7E,0B,3D,DD,77,OB, 
FE,69,DO,DD,36,00,715 
1070 DATA 00,C9,DD,7E,0B,3C,DD,77,0B, 
FE,A5,D8,DD,36,00,758 
1080 DATA 00,C9,D0,21,7D,85,DD,7E,00, 
FE,O0,C8,DD,7E,0C,751 
1090 DATA D6,02,DD,77,OC,FE,34,DO,DD, 
36,00,00,C9,DD,21,714 
1100 DATA 17,85,26,91,2E,00,CD,07,7B, 
C9,DD,36,00,01,11,4BE 
1110 DATA 39,58,DD,73,07,DD,72,08,DD, 
36,09,05, DD, 36, OA, 57D 
1120 DATA OD,DD,74,OB,DD,36,OC,94,DD, 
36, OE, 00, DD, 75,10,59F 
1130 DATA C9,DD,21,17,85,CD,3E,7B,DD, 
21,17,85,11,11,00,5A5 
1140 DATA 06,01,C3,12,81,DD,7E,10,3C, 
DD,77,10,FE,01,CA,631 
1150 DATA 59,7B,FE,02,C8,FE,03,CA,5D, 
7B,DD,36,10,00,03,725 
1160 DATA 3E,7B,DD,35,0C,C9,DD,34,0C, 
C9,DD,21,28,85,DD,70E 
1170 DATA 36,00,01,11,29,56,DD,73,07, 
DD,72,08,DD,36,09,491 
1180 DATA 0B,DD,36,0A,18,DD,36,0B,8C, 
DD,36,0C,96,DD,36,5B2 
1190 DATA 10,00,AF, 32,C8,85, C9, DD, 21, 
28,85,CD,9E,7B,DD,775 
1200 DATA 21,28,85,11,11,00,06,01,03, 


12,81,CD,C0,7B,FE,553 

1210 DATA 00,C8,DD,7E,10,3C,DD,77,10, 

FE,07,DA,D8,7B,FE,803 

1220 DATA 0F,D8,FE,14,DA,E1,7B,FE,18, 

D8,DD,36,10,01,C9,80A 

1230 DATA DD,7E,0B,3D,DD,77,0B,FE,62, 

D0,DD,36,0B,A0,DD,7CD 

1240 DATA 36, OC, 96, DD, 36,10,00, AF,C9, 

DD, 7E,0C,D6,07,DD,694 

1250 DATA 77,0C,C9,DD,7E,0C,C6,07,DD, 

77,0C,C9,DD,21,E4,78B 

1260 DATA 84,D5,1A,11,11,00,FE,01,28, 

05,DD,19,3D,1B,F7,503 

1270 DATA D1,C9,3E,02,CD,90,BB,26,01, 

2E,01,CD,75,BB,CD,712 

1280 DATA 00,B9,DD,21,17,85,DD,6E,00, 

26,00,CD,44,EF,DD,6A1 

1290 DATA 21,39,e5,DD,6E,00,26,00,CD, 

44,EF,DD,21,5B,85,62E 

1300 DATA DD,6E,00,26,00,CD,44,EF,C3, 

03,B9,3A,D4,85,FE,781 

1310 DATA 00,C8,3A,D5,85,3D,FE,00,CA, 

5C,7C,32,D5,85,3A,6FF 

1320 DATA D7,85,3C,32,D7,85,FE,01,C8, 

FE, 02,CA,74,7C,AF,856 

1330 DATA 32,D7,85,C3,46,7C,AF,32,D4, 

85,C3,53,78,3A,DE,7F3 

1340 DATA 85,FE,01,C8,3A,E3,85,FE,01, 

CA,94,7F,C3,79,7F,885 

1350 DATA 21,98,3A,22,EB,84,3E,01,32, 

DE, 85,C9,CD,34,7C,69E 

1360 DATA 3A,C8,85,47,FE,00,C4,A8,83, 

3A,DE,85,FE,00,CC,822 

1370 DATA 53,78,AF,32,DE,85,11,DA,84, 

06,0A,CD,EA,7B,C5,785 

1360 DATA D5,DD,TE,00,FE,00,26,44,DD, 

7E,0C,FE,D2,D2,ED,890 

1390 DATA 7C,DD,7E,0B,FE,A0,D2,ED,7C, 

CD,1B,7E,FE,01,CA,8EA 

1400 DATA ED,7C,11,38,4A,CD,9C,7E,DD, 

75,01,DD,74,02,11,69A 

1410 DATA C8,4B,CD,9C,7E,DD,75,03,DD, 

74,04, DD, 56,06, DD, 7BA 

1420 DATA 5E,05,DD,4E,09,06,00,DD,7E, 

0A,CD,06,7E,CD,1E,53E 

1430 DATA 64,D1,C1,13,10,AB,11,DA,84, 

06,OA,CD,EA,7B,C5,75A 

1440 DATA D5,DD,7E,00,FE,00,28,3C,FE, 

FF, CA,3F,7D,DD,TE,870 

1450 DATA 0C,FE,D2,D2,3F,7D,DD,7E,0B, 

FE,AO,D2,3F,7D,CD,0C9 

1460 DATA 1B,7E,FE,01,CA,3F,7D,DD,66, 

04,DD,6E,03,DD,56,6E6 

1470 DATA 08,DD,5E,07,DD,46,09,CD,41, 

7E,CD,60,7E,DD,7E,708 
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1460 DATA OA,CD,06,7E,4F,CD,49,84,01, 

C1,13,10,B3,21,E3,6B0 

1490 DATA 05,11,9F,C9,01,30,00,3E,64, 

CD,84,84,C3,A4,7D,60A 

1500 DATA 11,DA,64,Û6,0A,CD,EA,7B,C5, 

D5,DD,7E,00,FE,00,7A4 

1510 DATA 28,39,DD,7E,0C,FE,D2,D2,9F, 

7D,DD,7E,0B,FE,A0,86A 

1520 DATA D2,9F,7D,CD,1B,7E,FE,01,CA, 

9F,7D,DD,68,04,DD,85D 

1530 DATA 6E,03,2B,DD,56,02,DD,5E,01, 

DD,7E,09,C6,02,4F,568 

1540 DATA CD,2B,7E,06,00,DD,7E,0A,CD, 

06,7E,CD,84,84,D1,6D6 

1550 DATA C1,13,10,B6,11,DA,84,06,0A, 

CD,EA,7B,C5,D5,DD,7C2 

1560 DATA 7E,00,FE,00,26,3E,DD,7E,0C, 

FE,D2,D2,F3,7D,DD,838 

1570 DATA 7E,0B,FE,A0,D2,F3,7D,CD,1B, 

7E,FE,01,CA,F3,7D,908 

1580 DATA DD,7E,00,FE,FF,C2,D9,7D,DD, 

36,00,00,DD,66,06,7CC 

1590 DATA 0D,6E,05,DD,56,04,DD,5E,03, 

DD,45,09,06,00,DD,5DC 

1600 DATA 7E,OA,CD,06,7E,CD,06,84,01, 

C1,13,10,B1,C9,DD,73C 

1610 DATA 7E,0B,FE,65,D2,03,7E,AF,C9, 

D6,64,C9,F5,DD,7E,90A 

1620 DATA 0C,DD,66,0A,FE,D2,D2,14,7E, 

F1,C9,F1,3E,D2,DD,945 

1630 DATA g6,0C,C9,3E,64,DD,96,09,DD, 

BE,0B,DA,29,7E,3E,6EE 

1640 DATA 01,C9,AF,C9,DD,7E,06,DD,06, 

09,FE,A0,D2,37,7E,639 

1650 DATA C9,06,A0,90,47,DD,7E,09,90, 

4F,C9,DD,7E,0B,DD,795 

1660 DATA 86,09,FE,A0,D2,53,7E,DD,7E, 

OA,DD,46,09,C9,06,730 

1670 DATA AO,90,47,DD,75,09,90,47,DD, 

7E,0A,C9,DD,7E,0B,746 

1680 DATA FE,65,DA,6C,7E,DD,46,09,C9, 

3E,64,DD,96,0B,F5,831 

1690 DATA E5,6F,26,00,19,E6,E1,47,DD, 

7E,09,90,47,F1,C9,79B 

1700 DATA 32,89,7E,DD,7E,0D,3C,FE,0O, 

C2,8E,7E,AF,DD,77,7AC 

1710 DATA OD,CD,CE,84,09,DD,75,07,DD, 

74,08,C9,DD,7E,0C,717 

1720 DATA D6,32,6F,26,00,29,19,55,23, 

56,CD,F9,7D,6F,26,58E 

1730 DATA 00,19,C9,Û6,C7,21,A8,E8,11, 

38,4A,C5,7D,12,13,55A 

1740 DATA 7C,12,13,D5,CD,26,BC,D1,C1, 

10,F1,C9,06,C7,21,76F 

1750 DATA 64,00,11,C8,4B,C5,7D,12,13, 



7C,12,13,01,46,00,307 

1760 DATA 09,C1,10,F2,C9,C9,C9,3E,01, 

32,53,85,32,DE,85,795 

1770 DATA 21,19,54,22,EB,84,CD,00,7F, 

3A,EF,84,3C,FE,%,6E8 

1780 DATA D4,58,7F,32,EF,84,C9,3A,E4, 

85,FE,02,C0,3A,D2,888 

1790 DATA 85,FE,01,C0,3A,EF,84,FE,8C, 

C0,3A,E5,85,FE,01,8DE 

1800 DATA C8,AF,32,D2,85,CD,89,79,CD, 

F1,83,CD,B5,80,21,933 

1810 DATA 98,3A,11,19,06,01,03,00,35, 

07,CD,88,82,3A,D1,4FD 

1820 DATA 85,3C,32,D1,85,FE,07,C0,3E, 

01,32,DF,85,C9,3A,6E6 

1830 DATA E4,85,FE,00,CA,55,7F,3D,32, 

E4,85,CD,B2,78,3E,812 

1840 DATA 95,C9,3E,64,C9,3A,E4,85,3C, 

FE,03,CA,6A,7F,32,78E 

1850 DATA E4,85,CD,B2,78,3E,64,C9,3E, 

96,C9,E5,78,CD,A0,93F 

1860 DATA BC,E1,FE,04,C8,C3,AA,BC,3A, 

F1,84,3C,FE,03,C2,9BE 

1870 DATA 83,7F,AF,32,F1,84,21,4C,00, 

CD,CE,84,Û1,D4,53,70C 

1880 DATA 09,22,EB,84,C9,3A,F3,84,X, 

FE,03,C2,9E,7F,AF,7DF 

1890 DATA 32,F3,84,21,4C,00,CD,CE,84, 

01,50,52,09,22,EB,68E 

1900 DATA 84,C9,AF,32,E3,85,3E,01,32, 

DE,85,21,21,55,22,623 

1910 DATA EB,84,CD,CE,7F,3A,EF,84,3D, 

FE,64,DC,43,7F,32,8A5 

1920 DATA EF,84,C9,3A,E4,85,FE,00,C0, 

3A,D2,85,FE,01,C8,8F5 

1930 DATA 3A,EF,84,FE,73,C0,3E,01,32, 

D2,85,CD,E3,63,CD,0A6 

1940 DATA B5,60,21,B6,58,11,19,06,01, 

03,00,3E,07,C3,88,4F8 

1950 DATA 82,06,08,C5,CD,7F,78,35,42, 

CD,1E,BB,C2,83,80,704 

1960 DATA 3A,CF,85,FE,01,CA,83,80,3A, 

E5,85,FE,00,CA,7C,842 

1970 DATA 80,3A,FO,84,06,03,32,FO,84, 

CD,28,78,C1,10,D6,7C1 

1980 DATA 06,03,C5,CD,7F,78,3E,42,CD, 

1E,BB,C2,83,80,3A,6B7 

1990 DATA CF,B5,FE,01,CA,83,80,3A,E5, 

85,FE,00,CA,7C,80,888 

2000 DATA CD,28,78,C1,10,DE,06,Û8,C5, 

CD,7F,78,3E,42,CD,700 

2010 DATA 1E,BB,C2,83,80,3A,CF,85,FE, 

01,CA,63,80,3A,E5,617 

2020 DATA 85,FE,00,CA,7C,80,3A,F0,84, 


C6,03,32,F0,84,CD,833 
2030 DATA 28,7B,C1,10,D6,AF,32,E5,85, 
C3,C7,77,E1,CD,28,869 
2040 DATA 78,C3,C7,77,E1,CD,C5,83,21, 
64,00,11,9F,C9,01,76E 
2050 DATA 30,00.3E,64,CD,88.82,21,89, 
87,11,3E,EB,CD,A1,682 
2060 DATA 82,06.FA,CD.A8,83,06,FA,CD, 
A8,83,06,FA,CD,A8,6E7 
2070 DATA 83,06,FA,CD,A8,83,C3,60,75, 
DD,21,14,86,06,05,6B6 
2080 DATA DD,7E,00,FE,ÛA,38,09,0E,0A, 
91,DD,77,00,DD,34,5B2 
2090 DATA FF,DD,2B,10,EC,DD,21,11,86, 
11,69,06,06,04,C5,6B7 
.2100 DATA D5,DD,E5,D5,DD,7E,00,21,10, 
00,CD,CE,84,01,50,768 
2110 DATA 4E,09,D1,01,02,00,3E,08,CD, 
88,82,DD,El,Dl,Cl,698 
2120 DATA DD,23,13,13,10,DB,C9,3E,01, 
32,D4,85,3E,19,32,520 
2130 DATA D5,85,AF,32,52,84,32,07,85, 
C3,CE,76,ED,53,D9,95F 
2140 DATA 85,F5,C5,DD,E5,C5,DD,E5,16, 
00,DD,7E,00,FE,00,857 
2150 DATA CA,84,81,DD,7E,0E,FE,00,C2, 
84,01,3A,F2,84,FE,8AB 
2160 DATA 00,C2,84,81,3A,D4,85,FE,01, 
CA,84,81,3A,DF,85,7C6 
2170 DATA FE,01,CA,84,81,3A,EF,84,C6, 
08,DD,BE,0B,D4,36,7F9 
2180 DATA 62,3A,EF,84,DD,96,09,C6,02, 
DD,BE,0B,DC,36,82,7AD 
2190 DATA 3A,F0,84,C6,12,D0,BE,0C,D4, 
36,82,3A,FO,84,DD,844 
2200 DATA 96,0A,C6,08,DD,BE,0C,DC,36, 
82,7A,FE,04,C2,84,76B 
2210 DATA 81,3E,01,32,F2,84,D0,E1,C1, 
ED,5B,D9,B5,DD,19,883 
2220 DATA 10,8B,DD,E1,C1,F1,C9,C5,DD, 
E5,DD,7E,00,FE,00,9B4 
2230 DATA CA,FD,81,DD,7E,OE,FE,00,C2, 
FD,81,FD,21,55,84,986 
2240 DATA 06,03,16,00,FD,7E,00,FE,00, 
CA,F6,81,FD,7E,0E,662 
2250 DATA FE.00.C2,F6.81.DD,7E.0B,DD. 
86,09,FD,BE,0B,D4,8A3 
2260 DATA 36,82,DD,7E,0B,D6,02,FD,BE, 
0B,DC,36,82,DD,7E,7AB 
2270 DATA 0C,D0,86,0A,FD,BE,0C,D4,36, 
82,DD,7E,OC,D6,03,70C 
2280 DATA F0,BE,0C,DC,36,82,7A,FE,04, 
C2,F6,81,CD,09,82,B68 
2290 DATA 11,11,00,FD,19,10,BO,DD,E1, 
C1,ED,5B,D9,85,DD,7FA 
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2300 DATA 19,10,8C,C9,FD,36,0E,01,DD, 

7E,0F,3D,DD,77,0F,5CA 

2310 DATA FE,00,C2,25,82,DD,36,0E,01, 

FD,36,0E,00,FD,36,5FD 

2320 DATA 00,FF,CD,D3,83,DD,E5,FD,E5, 

C5,CD,B5,80,C1,FD,BAB 

2330 DATA El,DD,Ei,C9,lA,C9,DD,21,F5, 

84,06,09,DD,36,00,7DE 

2340 DATA 00,ii,ll,00,DD,19,10,F5,C9, 

3A,E4,85,FE,00,CA,651 

2350 DATA 5D,82,FE,01,CA,65,82,FE,02, 

CA,6D,82,C9,3E,01,750 

2360 DATA 32,DB,85,C3,FB,7A,3E,02,32, 

DB,85,C3,61,7B,3E,779 

2370 DATA 03,32,Dfi,8S,C3,A6,79,3A,DB, 

85,FE,01,CA,2B,7B,785 

2380 DATA FE,02,CA,88,7B,FE,03,CA,FD, 

79,C9,CS,E5,DS,ED,A46 

2390 DATA B0,E1,11,00,08,19,30,04,11, 

50,C0,19,EB,El,Cl,5œ 

2400 DATA 09,3D,C8,C3,08,82,7E,FE,2Û, 

C2,A9,82,3E,2D,D6,7A5 

2410 DATA 2D,E5,D5,D5,21,10,00,CD,CE, 

84,01,20,4E,09,01,585 

2420 DATA 02,00,3E,00,D1,CD,FB,82,D1, 

E1,13,13,23,7E,FE,6DA 

2430 DATA 2A,C2,A1,82,23,C9,7E,FE,20, 

C2,D6,82,3E,20,D6,7F2 

2440 DATA 2D,E5,D5,D5,21,10,00,CD,CE, 

84,01,20,4E,09,01,585 

2450 DATA 02,00,3E,08,D1,CD,88,82,D1, 

El,13,13,23,7E,FE,667 

2460 DATA 2A,C2,CE,82,23,C9,C5,E5,C5, 

E5,D5,ED,B0,D1,21,9E0 

2470 DATA 00,08,19,30,04,11,50,00,19, 

EB,E1,C1,D5,ED,B0,68E 

2480 DATA Dl,21,00,08,19,30,04,11,50, 

CO,19,EB,E1,C1,09,517 

2490 DATA 3D,C8,C3,FB,82,AF,F5,06,00, 

0E,00,CD,32,BC,F1,7A9 

2500 DATA 3C,FE,10,C8,03,28,83,21,13, 

88,AF,E5,F5,46,4E,759 

2510 DATA CD,32,BC,F1,E1,3C,FE,10,C8, 

23,03,30,83,CD,06,817 

2520 DATA BB,CD,68,77,CD,06,B6,C3,06, 

BB,00,3E,01,32,E3,6CD 

2530 DATA 85,AF,32,F2,84,32,E5,85,32, 

F3,84,32,F1,84,32,7FA 

2540 DATA DE,85,DO,21,E4,84,DD,36,00, 

01,DD,36,0B,7D,DD,755 

2550 DATA 36,0C,86,DD,36,09,0B,DD,36, 

OA,18,21,19,54,DD,491 

2560 DATA 75,07,DD,74,06,C9,3E,0A,32, 

08,85,09,AF,32,11,620 

2570 DATA 86,32,12,86,32,13,86,32,14, 



86,32,15,66,C9,78,4F5 
2580 DATA FE,00,C8,21,F4,01,2B,7C,B5, 
2Û,FB,10,F6,09,11,733 
2590 DATA 64,00,21,A8,E8,01,46,00,3E, 
AO,03,33,84,21,64,539 
2600 DATA 00,36,00,11,65,00,01,50,46, 
ED,B0,C9,C3,E3,83,5D2 
2610 DATA 3A,13,86,30,32,13,86,11,01, 
00,C3,FE,83,3A,13,47D 
2620 DATA 86,06,02,32,13,86,11,02,00, 
03,FE,83,3A,11,86,541 
2630 DATA 30,32,11,86,11,64,00,C3,FE, 
83,2A,CD,85,19,22,575 
2640 DATA CD,85,C9,ED,43,0B,84,01,00, 
00,F5,D5,ED,B0,D1,613 
2650 DATA E5,21,46,00,19,EB,E1,F1,3D, 
C8,18,EC,ED,43,23,77E 
2660 DATA 64,01,00,00,F5,E5,ED,B0,E1, 
01,46,00,09,F1,3D,65B 
2670 DATA C8,18,EF,C5,F5,E5,ED,B0,E1, 
01,00,08,09,30,04,732 
2680 DATA 01,50,00,09,Fl,Cl,3D,08,18, 
EA,C5,E5,D5,1A,F£,86A 
2690 DATA 00,28,1D,7E,FE,00,28,13,E6, 
55,28,0A,7E,E6,AA,577 
2700 DATA 20,OF,1A,E6,AA,18,06,1A,E6, 
55,18,Û1,1A,4F,7E,44C 
2710 DATA B1,77,13,23,10,DA,E1,16,00, 
DD,5E,09,ig,EB,El,668 
2720 DATA 01,46,00,09,01,00,08,18,05, 
ED,43,89,84,01,00,501 
2730 DATA 00,E5,D5,ED,BO,01,21,00,08, 
19,30,04,11,50,00,5BF 
2740 DATA 19,EB,E1,01,46,00,09,3D,C8, 
18,E4,21,4A,C9,CD,637 
2750 DATA F9,7D,4F,06,00,09,DD,7E,0C, 
D6,32,FE,00,CA,C7,6D2 
2760 DATA 84,11,00,08,19,D2,C3,84,11, 
50,00,19,3D,C2,D6,5C0 
2770 DATA 84,DD,74,02,DD,75,01,09,EB, 
21,00,00,FE,00,08,605 
2780 DATA 19,3D,C3,D2,84,01,02,03,04, 
05,06,07,08,09,0A,2A6 
2790 DATA 01,00,00,00,00,67,90,00,00, 
OA,1A,00,00,00,00,lie 
2800 DATA 00,00,00,00,00,00,00,6F,91, 
00 , 00 , 00 , 00 , 00 , 00,100 
2010 DATA 00,00,00,00,00,00,00,00,00, 
96,91,00,00,00,00,127 
2820 DATA 00,00,00,00,00,00,00,00,00, 
00,00,BD,91,00,00,14E 
2830 DATA 00,00,00,00,00,00,00,00,00, 
00,00,00,00,E4,91,175 
2840 DATA 00,00,00,00,00,00,00,00,00, 


00 , 00 , 00 , 00 , 00 , 00,000 
2850 DATA A4,92,00,00,00,00,00,00,00, 
00,00,00,00,00,00,136 
2860 DATA 00,00,64,93,00,00,00,00,00, 
00,00,00,00,00,00,OF7 
2870 DATA 00,00,00,00,24,94,00,00,00, 
00,00,00,00,00,00,0B8 
2880 DATA 00,00,00,00,00,00,E4,94,00, 
00,00,00,00,00,00,178 
2890 DATA 00,00,00,00,00,00,00,00,A4, 
95,00,00,00,00,00,139 
2900 DATA 00,00,00,00,00,2A,F9,85,23, 
22,F9,85,7E,FE,00,4E7 
2910 DATA 00,21,FB,85,22,F9,85,7E,C9, 
2A,E7,85,23,22,E7,80A 
2920 DATA 85,7E,FE,00,00,21,E9,85,7E, 
22,E7,85,C9,2A,F1,840 
2930 DATA 85,23,22,F1,85,7E,FE,00,C0, 
21,F3,85,7E,22,F1,7A6 
2940 DATA 85,09,00,00,00,00,00,00,00, 
00,00,00,00,00,00, UE 
2950 DATA 00,00,00,00,00,00,00,00,00, 
00 , 00 , 00 , 00 , 00 , 00,000 
2960 DATA 00,00,00,00,00,00,73,91,82, 
78,7D,M,6D,00,00,37E 
2970 DATA 00,5F,58,51,00,00,00,00,00, 
02,01,03,02,03,01,114 
2980 DATA 01,02,03,01,03,01,02,01,02, 
01,03,01,03,02,02,010 
2990 DATA 00,00,00,00,00,00,00,00,00, 
00,00,E5,D2,43,4F,249 
3000 DATA 4E,47,52,41,54,55,40,41,54, 
49,4F,4E,53,20,2F,43A 
3010 DATA 2F,2A,82,F3,59,4F,55,20,41, 
52,45,20,41,20,47,48B 
3020 DATA 4F,4F,44,20,50,49,52,41,54, 
45,2A,46,EA,50,52,4C3 
3030 DATA 4F,47,52,41,4D,20,41,4E,44, 
20,4D,55,53,49,43,40A 
3040 DATA 2A,97,EA,42,59,20,40,55,43, 
20,47,55,49,40,40,4E7 
3050 DATA 41,55,4D,45,2A,3B,EB,47,52, 
41,50,48,49,43,53,409 
3060 DATA 20,42,59,2A,88,EB,48,45,52, 
56,45,20,47,55,49,4D7 
3070 DATA 40,40,41,55,4D,45,2A,2B,EC, 
44,45,53,49,47,4E,4BB 
3080 DATA 20,31,39,39,30,2A,71,EC,43, 
4F,50,59,52,49,47,497 
3090 DATA 48,54,20,42,40,41,43,48,20, 
53,50,53,54,45,4D,41E 
3100 DATA 2A,A8,E8,00,51,04,00,08,00, 
E2,E8,2C,51,04,00,465 
3110 DATA OB,00,98,DE,58,51,04,00,08, 
00, D2,DE,84,51,04,402 
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3120 DATA 00,OB,00,OA,F6,2E,52,03,00, 

0A,00,0F,F6,2E,&2,3iD 

3130 DATA 03,00,OA,00,BO,FS,AC,52,06, 

00,16,00,D9,F5,AC,A86 

3U0 DATA 52,06,00,16,00,0D,E1,B0,SI, 

12,00,0?,00,9F,C9,3DE 

3150 DATA 10,27,30,00,64,00,00,CO,10, 

27,50,00,15,00,E0,307 

3160 DATA F6,10,27,50,00,12,00,00,CO, 

10,27,08,00,C8,00,356 

3170 DATA 46,C0,10,27,0A,00,C8,00,A9, 

£8,00,51,04,00,08,400 

3180 DATA 00,E2,E8,2C,51,04,00,08,00, 

B9,CS,43,52,45,44,4F2 

3190 DATA 49,54,53,20,33,2A,DO,C5,50, 

4F,57,45,52,20,3E,4ED 

3200-DATA 3E,3E,3E,2A,59,DE,42, 4C, 41, 

43,48,20,53,59,53,497 

3210 DATA 54,45,4D,20,31,39,39,30,2A, 

30,30,30,30,30,30,323 

3220 DATA 2A,32,2A,30,30,2A,43,4F,50, 

59,52,49,47,48,54,3C9 

3230 DATA 20,41,43,4B,45,52,4C,49,47, 

46,54,20,31,39,38,300 

3240 DATA 39,2A,47,41,4D,45,20,4F,56, 

45,52,2A,3E,20,4D,3AE 

3250 DATA 49,53,53,49,4F,4E,20,4F,56, 

45,52,20,3C,2A,4C,403 

3260 DATA 45,56,45,40,20,31,2A,3F,3F, 

3F,3F,3F,3F,3F,2A,38A 

3270 DATA 50,40,45,41,53,45,20,41,43, 

43,45,53,53,20,43,3EF 

3260 DATA 4F,44,45,20,3D,3D,3D,3D,3D, 

2A,3F,2A,3E,3E,3E,376 

3290 DATA 3E,2A,02,06,00,0A,00,0A,00, 

14,00,02,01,03,14,082 

3300 DATA 00,00,OF,OF,00,01,00,00,00, 

00,01,0F,02,00,01,032 

3310 DATA 00,00,00,00,06,0F,02,00,02, 

00,OO,001,00,OC,0F,034 

3320 DATA 02,00,02,00,00,14,00,Û0,0F, 

05,00,02,03,03,E£,122 

3330 DATA 02,19,0F,32,00,00,00,06,02, 

01,18,17,16,0A,09,0BD 

3340 DATA 0F,10,12,1A,0E,03,DD,7E,0E, 

3C,DD,77,0E,FE,03,464 

3350 DATA DA,51,88,FE,04,DA,SA,88,FE, 

05,DA,6C,88,FE,06,846 

3360 DATA DA,76,88,FE,07,DA,6C,88,FE, 

08,DA,SA,88,DD,36,880 

3370 DATA 0E,00,DD,36,00,FF,C9,21,10, 

27,DD,75,07,DD,74,5EB 

3380 DATA 08,21,91,63,DD,75,07,DD,74, 

08,DD,36,09,03,DD,5CB . 

3390 DATA 36,0A,0D,C9,21,B8,63,DD,75, 


07,DD,74,08,C9,21,5EE 

3400 DATA DF,63,DD,75,07,DD,74,08,C9, 

12,00,01,01,01,02,4D4 

3410 DATA 03,03,64,03,64,03,01,01,01, 

02,04,00,1E,00,43,13E 

3420 DATA 00,54,00,D&,01,0C,15,00,05, 

01,00,00,0C,0D,00,16E 

3430 DATA 00,05,00,00,00,05,01,00,00, 

OC,OD,00,00,05,01,02A 

3440 DATA 00,00,OC,00,00,00,05,00,00, 

00,05,00,00,00,05,028 

3450 DATA FF,01,00,00,OC,02,00,00,05, 

00,00,00,05,00,00,118 

3460 DATA 00,05,FF,01,7E,02,0C,05,00, 

04,9F,00,5C,0F,05,2A9 

3470 DATA 00,00,00,05,01,00,00,OC,16, 

00,00,05,01,00,00,02E 

3480 DATA 0c,02,00,00,05,01,00,00,0c, 

ÛD,00,00,05, 01, 7E, OBI 

3490 DATA 02,0C,05,02,50,00,OC,15,00, 

05,01,38,02,0C,05,0D7 

3500 DATA 02,47,00,OC,15,00,05,00,00, 

00,05,Û1,00,00,OC,081 

3510 DATA 16,00,00,05,01,00,00,OC,02, 

02,3F,00,OC,15,00,08C 

3520 DATA 05,01,00,00,OC,OD,00,00,05, 

01,FA,01,0C,05,00,131 

3530 DATA 04,7F,OO,OC,OF,O5,Ol,DE,Ol, 

0C,05,00,04,77,00,20F 

3540 DATA 5C,OF,05,00,00,00,05,01,00, 

00,OC,16,00,00,05,09D 

3550 DATA 01,00,00,0C,02,00,00,05,01, 

00,00,OC,OD,00,00,02E 

3560 DATA 05,01,00,00,0c,02,00,00,05, 

01,00,00,OC,OD,00,033 

3570 DATA 00,05,00,00,00,05,01,00,00, 

OC,02,00,00,05,01,01F 

3560 DATA 00,00,0c,02,00,00,05,oi,00, 

00,OC,OD,00,00,05,032 

3590 DATA 01,00,00,0c,02,00,00,05,01, 

AA,01,0C,05,00,04,0D5 

3600 DATA 6A,00,5C,0F,05,00,00,00,05, 

01,00,00,OC,16,00,102 

3610 DATA 00,05,01,00,00,OC,02,00,00, 

05,01,00,00,OC,OD,033 

3620 DATA 00,00,05,01,AA,01,OC,05,02, 

35,00,0C,15,00,05,11F 

3630 DATA 01,DE,01,0C,05,02,36,0O,OC, 

15,00,05,00,00,00,154 

3640 DATA 05,01,00,00,OC,16,00,00,05, 

01,00,00,OC,02,02,03E 

3650 DATA 38,00,OC,15,00,05,01,00,00, 

OC,00,00,00,05,01,061 

3660 DATA DE,01,OC,05,00,04,77,00,OC, 


OF,05,01,FA,01,OC,293 
3670 DATA 05,00,04,7F,00,8E,OF,05,00, 
00,00,05,01,BE,00,1EE 
3680 DATA OC,05,00,00,05,01,D5,0O,0C, 
05,00,00,05,00,00,102 
3690 DATA 00,05,01,D5,00,OC,05,00,00, 
05,01,00,00,OC,16,114 
3700 DATA 00,00,05,00,00,00,05,01,00, 
00, OC,00,00,00,05,029 
3710 DATA 01,D5,00,0C,05,00,00,05, 00, 
00,00,05, 00,00,00, OFl 
3720 DATA 05, FF, 01,7E,02,OC,05,02,50, 
00,OC,15,00,05,00,20E 
3730 DATA 00,00,05,01, 00,00, OC,16,00, 
00,05,01, 00,00, 0C,03A 
.3740 DATA 02,00,00,05,01,00,00,0C,0D, 
00,00,05,01,7E,02,0A7 
3750 DATA OC, 05, 02, 50, 00, OC, 15,00,05, 
00,00, 00,05,Û0,00,08E 
3760 DATA 00,05,01,FA,01,OC,06,Û2,3F, 
00,0C,15,00,05,01,17A 
3770 DATA 38,02,OC,05,02,47,00,OC,15, 
00,05,00,00,00,05,OBF 
3780 DATA 01,7E,02,OC,05,02,50,00,OC, 
15,00,05,01,38,02,145 
3790 DATA OC,05,02,47,00,OC,15,00,05, 
00,00,00,05,01,38,OBE 
3800 DATA 02,OC,05,02,47, 00, OC,15,00, 
05,00,00,04,8E,00,114 
3810 DATA 5C,OF,05,00,00,00,05,00,00, 
00,05,00,00,00,05,07F 
3820 DATA 00,00,00,05,01,00,00,0c,02, 
00,00,05,01,00,00,01A 
3830 DATA 0c,02,00,00,05,01,00,00,0c, 
OD,00,00,05,00,00,032 
3840 DATA 00 , 05 , 01 , 00 , 00 , 0 c, 02 , 00 , 00 , 

05,01,00,00,OC,OD,033 

3850 DATA 00,00,05,00,00,00,06,01,FA, 

01,0C,0S,02,3F,00,158 

3060 DATA 0c,15,00,0s,00,00,00,05,01, 

00,00,OC,16,00,00,04E 

3870 DATA 05,01,00,00,OC,02,00,00,05, 

01,00,00,OC,OD,00,033 

3880 DATA 00,05,01,FA,01,OC,05,02,3F, 

00,OC,15,00,05,00,179 

3890 DATA 00,00,05,00,00,00,05,01,AA, 

01,0C,05,02,3S,00,0FE 

3900 DATA OC,15,00,05,01,DE,01,OC,05, 

02,3B,00,0C,15,00,175 

3910 DATA 05,00,00,00,05,01,FA,01,OC, 

05,02,3F,00,0C,15,179 

3920 DATA 00,05,01,DE,01,OC,05,02,3B, 

00,0C,15,00,05,00,159 

3930 DATA 00,00,05,01,DE,01,OC,05,02, 

3B,00,OC,15,00,05,159 
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3940 DATA 00,00,04,77,00,5C,OF,05,00, 

00,00,05,00,00,00, OFO 

3950 DATA 05,00,00,00,05,00,00,00,05, 

01,00,00,OC,02,00,OIE 

3960 DATA 00,05,01,00,00,0C,02,00,00, 

05,01,00,00,0C,0D,033 

3970 DATA 00,00,05,00,00,00,05,01,00, 

00,OC,02,00,00,05,01E 

3960 DATA 01,00,00,0C,0D,00,00,05,00, 

00,00,05,01,DE,01,104 

3990 DATA OC,05,02,36,00,OC,15,00,05, 

00,00,00,05,01,00,07A 

4000 DATA 00,0C,16,00,00,05,01,00,00, 

OC,02,00,00,05,01,03C 

4010 DATA 00,00,OC,OD,00,00,05,Û1,DE, 

01,0C,05,02,36,00, UC 

4020 DATA 0c,15,00,05,00,00,00,05,00, 

00,X,05,01,FA,01,12C 

4030 DATA 0C,05,02,3F,0O,OC,15,00,05, 

01,38,02,0C,05,02,0C6 

4040 DATA 47,OO,0C,15,00,05,00,00,00, 

05,01,7E,02,OC,05,104 

4050 DATA 02,50,00,34,0F,04,00,00,OC, 

11,05,00,00,00,F4,1AF 

4060 DATA FF,F5,D5,CD,A7,6C,D1,F1,FE, 

00,21,0A,8F,CA,DD,A1A 

4070 DATA 6C,ED,53,20,8F,1A,32,22,8F, 

3E,01,21,24,8F,CD,588 

4080 DATA 6C,6C,3E,01,21,2E,6F,CD,6F, 

6C,3E,02,21,35,8F,602 

4090 DATA CD,6C,6C,3E,02,21,39,8F,CD, 

6F,6C,3E,03,21,40,658 

4100 DATA 8F,CD,8C,6C,3E,03,21,47,8F, 

CD,6F,6C,3E,04,21,6D7 

4110 DATA 4E,8F,CD,6C,6C,3E,05,21,56, 

0F,CD,6C,6C,3E,06,6F9 

4120 DATA 21,5F,8F,CD,6C,6C,3E,07,21, 

69,8F,CD,eC,6C,3E,735 

4130 DATA 08,21,70,8F,CD,8C,6C,AF,32, 

1E,8F,32,1F,8F,32,60D 

4140 DATA 1F,8E,3E,01,32,19,8F,2A,20, 

8F,23,22,1C,8F,CD,45C 

4150 DATA A3,6D,21,0A,8F,01,00,81,11, 

EA,8C,C3,D7,8C,F3,73C 

4160 DATA F5,D5,E5,C5,DD,E5,FD,E5,CD, 

01,8D,FD,E1,DD,E1,C0F 

4170 DATA C1,E1,D1,F1,F8,ED,4D,3A,19, 

6F,3D,FE,00,CA,0E,88E 

4180 DATA 80,32,19,8F,C9,06,03,DD,2A, 

1A,8F,C5,DD,E5,11,681 

4190 DATA 01,00,DO,7E,00,FE,00,CA,28, 

8D,CD,7F,8D,11,05,5C8 

4200 DATA 00,DD,E1,C1,DD,19,10,E5,DD, 

7E,00,3C,32,19,8F,606 

4210 DATA DD,23,DD,22,lA,8F,DO,7E,00, 



FE,FF,C0,AF,32,1F,7C0 

4220 DATA 8E,C3,A3,8D,3E,0F,FD,21,44, 

8E,C3,64,8D,3E,0F,68F 

4230 DATA FD,21,4D,8E,C3,64,8D,3E,0F, 

FD, 21,71,8E,C3,64,73E 

4240 DATA 8D,F5,D0,E5,FD,E5,FD,77,06, 

CD,F1,8D,FD,E1,DD,BA6 

4250 DATA E1,F1,3D,FE,O9,C2,64,0D,FD, 

36,06,0F,C9,DD,7E,835 

4260 DATA 04,FE,10,CA,49,8D.FE,11,CA, 

52,8D,FE,13,CA,56,7A0 

4270 DATA 8D,FD,21,44,8E,3D,FE,00,CA, 

F1,BD,11,09,00,FD,717 

4280 DATA 19,C3,95,8D,2A,1C,8F,23,7E, 

FE, 00,C2,BD,8D,AF,720 

4290 DATA 32,1E,8F,32,1F,8F,32,1F,8E, 
2A,20,BF,23,23,7E,438 
4300 DATA 22,1C,8F,FE,64,CA,2C,8E,FE, 
65,CA,34,8E,DD,2A,7A9 
4310 DATA 22,BF,ED,56,20,BF,DD,19,3D, 
FE,00,CA,E2,80,11,723 
4320 DATA 02,00,DD,19,C3,D4,8D,DD,6E, 
00,DD,66,01,ED,58,6F3 
4330 DATA 20,8F,19,22,1A,8F,C9,DD,7E, 
00,FD,77,00,DD,6E,676 
4340 DATA 01,DD,66,02,CD,24,8E,FD,75, 
03,FD,74,04,DD,7E,70A 
4350 DATA 03,FD,77,07,FD.36,08,00,FD, 
E5,E1,3A,1F,8F,FE,762 
4360 DATA 00,CA,AA,BC,DD,7E,00,FE,00, 
C2,AA,BC,C9,3A,1E,7D2 
4370 DATA 8F,FE,00,C8,20,C8,3E,01,32, 
1E,8F,C3,A3,8D,3E,696 
4380 DATA 01,32,1F,8F,23.7E,32,1F,8E, 
22,1C,8F,C3,A3,BD,521 
4390 DATA 00,01,00,00,00,00,0F,00,00, 
00,02,00,00,00,05,017 
4400 DATA 0F,00,00,00,03,00,00,00,00, 
OF,00,00,00,04,00,025 
4410 DATA 00,00,00,00,00,00,00,02,00, 
00,00,00,0F,00,00,011 
4420 DATA 00,02,00,00,00,OF,OF,00,00, 
00,02,00,00,00,19,036 
4430 DATA OF,00,00,00,05,00,00,00,05, 
OF,00,00,00,05,OC,020 
4440 DATA 00,00,OF,OF,00,00,00,05,00, 
00,00,0F,0F,00,00,041 
4450 DATA 00,05,00,00,00,00,0F,00,00, 
00,03,01,00,00,00,018 
4460 DATA OF,00,00,00,06,00,00,00,01, 
00,00,00,00,00,02,018 
4470 DATA 00,00,00,OC,00,00,00,03,02, 
00,00,00,ÛF,00,00,020 
4480 DATA 00,00,00,00,00,00,00,00,00, 


00 , 00 , 00 , 00 , 00 , 00,000 
4490 DATA 00,00,00,00,04,02,00,00,00, 
00,00,00,00,00,00,006 
4500 DATA 00,00,00,00,00,00,00,03,03, 
00,00,00,00,00,00,006 
4510 DATA 00,07,00,00,00,00,00,00,00, 
00,08,00,00,00,03,012 
4520 DATA 00,00,00,00,00,00,00,00,00, 
00 , 00 , 00 , 00 , 00 , 00,000 
4530 DATA 00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,03,003 
4540 DATA 01,00,0A,0A,FF,01,01,00,0A, 
82,14,01,01,14,FF,2C8 
4550 DATA 01,01,OF,FF,02,82,03,01,03, 
03,FF,03,02,OA,FF,3A8 
4560 DATA 08,05,FF,04,03,50,01,01,14, 
02,01,04,01,07,01,189 
4570 DATA 03,02,01,01,00,02,0A,FF,05, 
01,0F,FF,01,03,01,226 
4580 DATA 0A,01,01,00,04,05,FE,01,02, 
01,0F,05,0A,FF,02,236 
4590 DATA 02,01,0C,01,0C,FF,01,08,0C, 
01,01,01,01,01,01,139 
4600 DATA 0D,0E,01,02,01,01,06,0C,01, 
01,01,01,01,01,0D,04A 
4610 DATA 0E,01,02,01,01,01,01,01,01, 
01,01,01,01,01,01,010 
4620 DATA 01,01,01,01,01,01,01,01,01, 
01,01,04,01,01,01,012 
4630 DATA 01,01,01,05,06,07,01,01,01, 
01,01,08,09,OA,01,036 
4640 DATA 01,01,01,01,03,03,03,03,03, 
03,03,03,02,01,01,020 
4650 DATA 01,01,01,OB,OC,01,01,OB,OC, 
01,02,OD,0E,O6,OC,066 
4660 DATA 0D,0E,01,01,01,01,00,0E,01, 
01,01,01,02,01,01,042 
4670 DATA 01,01,01,01,01,01,01,01,01, 
01,01,01,01,01,01,00F 
4600 DATA 01,01,01,01,01,01,01,01,01, 
01,01,01,01,01,01,00F 
4690 DATA 01,01,01,01,01,01,01,01,01, 
03,03,03,03,03,03,016 
4700 DATA 03,03,01,01,01,02,01,01,06, 
0C,02,01,01,01,01,02A 
4710 DATA 01,0D.0E,01,01,06,ÛC,01,01, 
01,01,01,01,OD,0E,056 
4720 DATA 01,01,01,01,01,01,01,01,01, 
01,01,01,01,01,01,00F 
4730 DATA 01,01,01,01,01,01,01,01,01, 
01,01,01,01,01,01,00F 
4740 DATA 01,01,01,01,0F, 10,01,01,01, 
01,01,01,11,12,03,04F 
4750 DATA 03,03,03,03,03,03,03,00,00, 
00,00,00,00,00,00,015 
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Valable pour CPC 
664 et 6128 


Dans ce jeu, vous êtes un 
serpent qui se nourrit 
exclusivement de cœurs. Il se 
déplace dans un labyrinthe et 
doit éviter les têtes de monstres 
qui parsèment les couloirs de sa 
prison. Autre chose : le serpent 
s'allonge et ne doit pas se 
mordre la queue. Ce jeu est 
moins facile qu 'il n 'y parait 
puisqu'il y a de nombreux 
pièges qui peuvent bloquer 
la situation. Les règles 
sont incluses. 



serpente_ 

10 ’lflllifillllitlixililliititiilll >LA 

lf«l 

20 ’f BEDIFINITION >LB 

i 

30 'ifilIlilIlitliitlIilliiilXilfl >LC 
itii 

40 ' >LD 

50 SYMBOL AFTEB 1 >HQ 

60 SYMBOL 30,255,138,210.218,218.21 )BF 
6,255,255:SYMBOL 39,255,196,213,196 
,215,212,255,255:SYMB0L 40,255,98,2 
38,106,106,98,255,255:SYHB0L 41,255 
,34,174,43,170,162,255,255:SYHB0L 4 
2,255,35,175,167,175,163,255,255:SY 
MBOL 224,124,254,146,124,170,130,23 
8,124 

70 SYMBOL 97,lil0,U0,iil0,tl0,Ullll >PV 
110, AXIOIIOIO, Ul 1000, Ul 1000: SYHBO 
L 9e,tJ11000,liI11000,t(I111100:SYNBO 
L 99,U0,til0,IJ0,U0,iJ11000,tJllll 
00,liX1100410,bX1100110:SYNBOL lOO.ti 
X1111110,U1100110,&X1100110 


80 SYMBOL 101,tiX0,tiXÛ,liX0,U0,tillll )TL 
11100,t<X1100110,W1100110,liX1111100 
: SYMBOL 102, ttXl 100110, liXl 100110, &X1 
1111100:SYMBOL 103,AXO,iXO,iXO,AXO, 

Ail1110000,AXl100000,AXl100000,AXl1 
00000:SYHBOL 104,AX1100010,AX110011 
O.AXlllllllO. 

90 SYMBOL 105,AX0,AX0,AX0,AX0,AX111 >JZ 
11110,AXllOOOlO.AXllOlOOO.AXllllOpO 
:SYMB0L 106,AX1101000,AX1100010,AX1 
llllllû:SYMBOL 1Û7,AX0,AX0,AXÛ,AX0, 
AI1100110,AX1100110,AX1100110,AX110 
0110:SYMB0L lOe.AXllOOllO.AIllOOllO 
.AXllllOO 

100 SYMBOL 109,AX0,AXÛ,AX0,AX0.AX11 )XN 
00110,AX1100110,AX1100110,AX1100110 
:SYMB0L llO.AXllOOllû.AXllllOO.AXll 
000:SYMBOL 111,AX0,AX0,AX0,AX0,AX11 
11110,AX11000,AX11000,AX11000:SYMBO 
L 112, AX11000,AX11000,AX1111110 
110 SYMBOL 113,AX0,AX0,AX0,AX0,AX11 >TA 
1100,AXllOOl10,AXl100000,AXl11100:S 
YMBOL 114,AX110,AX1100110,AX111100: 
SYMBOL 115,AXO,AXO,AXO,AXO,AXll1000 
,AX1101100,AX11000110,AX11000110:SY 
MBOL 116,AX11000110,AX1101100,AI111 


000 

120 SYMBOL 117,AX0,AX0,AX0,AX0,AX11 >QV 
IIOO.AXIIOOIIO.AXIIOOOOOO.AXIIOOOOO 
0:SYMB0L 118,AX1100000,AX1100110,AI 
111100:SYMBOL 119. AXO, AXO, UO. AXO, A 
X111111Û0,AX1100110,AX11Û0110,AX111 
1100:SYMB0L 120,AX1101100,AX1100110 
.AXlllOOOlO 

130 SYMBOL 121,AX0,AX0,AX0.AX0,AX11 )TF 
000110,AX1110Û110,AX11110110,AX1101 
1110:SYMB0L 122.AX11001110,AX110001 
10,AXl1000110 

150 SYMBOL 143,AX11111111,AX1000000 >NQ 

1,AX10111101,AX10101101,AX10100001, 

AXlOllllll.AXlOOOOOOl.AXllllllll 

160 SYMBOL 123,AX0,AX0,AX1111111,AI >MV 
10000000,AXIOOOOOOO,AXIOOOOOOO,AXIO 
000000,AX10000000:SYM60L 124,AX0,AX 
0, AXO. AXl 1111, AXIOOOO, UlOOOO, AXIOO 
00,AXIOOOO:SYMBOL 125,AXO,AXO,AXO,A 
XlOOOOOOO,AXll1110,AXIOOOIO,AXIOOOI 
0,AX111110 

170 SYMBOL 126,AXO,AXO,AXO,AXO,AXO, >ZY 
AI1111000,AX1001011,AX1001010:SYMBO 
L 127,AX0,AX0,AX0,AX0,AX0,AI0,AX10O 
00000,AX100010:SYHfiOL 255,AX1111111 


27 



















































































I, iXl,m,«JCl,miilllll:SYMBOL 129 

, m 1 i 10, moooo, m0000, mocKW 
mil 

180 SYMBOL 130,l(X111000,ltX101100,W >CF 
100110,iX100011,«iX10100001:SYHB0L 1 
31,U1111010,&X1000011,&X1000010,&X 
1000010, iiX1000011:SYHBOL 132,iX1100 

io,sjiiioio,&xioiiio,mooiio,&xioi | 

00010 

190 SYMBOL 133,fcX11111000,W100000, >EJ 

Miooiii,w[iooioi,mooiii 

200 SYMBOL 48,«tX1111110, W1000010,i >FT ; 
XlOOOOlO, IcXlOOOOlO, &X1000010, &X1000 
010,W[1111110,«iX0;SYMB0L 49,mi00, 

«jiioo,&xiioo,mioo,mioo,&xiioo, 

l(X1100,&X0:SYMB0L 50,tJ1111100,&X10 

0, iXloo, mil 1100, moooooo, fcxloooo 
oo,miiiioo,&xo 

210 SYMBOL 51,milll00,m00,tX100 >Gy 

,&xiiiioo,&xioo,«cxioo,miiiioo,&xo 

: SYMBOL 52,«iX1000100,m000100,«tX10 

00100,&xiiiiioo,moo,&xioo,moo,it ! 

XO:SYMBOL &3,milllOO,&X1000000,&X 

1000000, i(X 1 i 1110 0, &x 100, bxi 00, m 11 
1100,&X0 I 

220 SYMBOL 54, Ml 111100, ltI1000000,«t >HF ! 
X1000000,M1111100,M1000100,M1000 
100,Mil 11100,MO:SYMBOL 55,M11111 
00,M100,M100,M100,M100,M100,M 
lOOrSYMBOL 56,MlllllOO,M1000100,lt i 

X1000100,M1111100,M1000100,M1000 
100,M1111100,MO 

230 SYMBOL 57,M1111100,M1000100,& >RU i 
X1000100,M1111100,M100,M100,M11 
11100,MOtSYHBOL 148,M10011000,M1 
1010010,M1111111,M11101,M111000, 
M1101100,M11000110,M10 
240 SYMBOL 134,MO,MO,MO,MO,M11 >NP 
000, Ml 11000, Ml 1000, Ml 1000: SYMBOL 
135,M0,M0,M0,M0,M111100,M110 
0110,M1100110,M111110:SYHBOL 136, 
MO,MO,MO,MO,M111100,M1100110, 
M1100110,M111100 

250 SYMBOL 137, Ml 1000, Ml 1000,MU )PY 
llllOtSYHBOL 138,M110,M1100110,M 
111100:SYMBOL 139,M1100110,M11001 
10,M111100 

260 SYMBOL 174,M10110,M111101,M1 >DX 
111111,M11111111,M10111110,M1111 

II, M1111111,M1111000:SYMBOL 175,t( 

XO, MlOOOOOOO, Ml 1000000, Ml 1111000 
, MIOIOI100, Ml 1100000, MO, MO 

270 SYMBOL 168,MO,MO,MO,MO, MO, >MX 
M11,M111,M1011:SYMBÛL 169,M1000 


,M11000,M111100,M1111110,M11111 

111,M1101111,M11000111,M10000010 

280 SYMBOL 170,MO, MO,M100,M1010 >DR 

1111,M11111111,M11111111,M111111 

11, MIOIOIOI1 : SYMBOL 171, MlOOO, Ml 

011100,M11111110,M11111111,M1111 

1111,M11110111,M10100011,M1 

290 SYMBOL 172,M100,Mllllll,Mlll >CU 

llll,Mllllllll,Mllllllll,M111110 

11,M11000000,M10000000:SYHBOL 173 

,M1111000,M11111000,M11110000,M 

11100000, Ml 1000000, MlOOOOOOO 

300 SYMBOL 176,M11111111,M1010010 )NL 

1,M11111111:SYMB0L 34,1,1,1,1,1,1, 

7,7:SYMBOL 35,128,128,128,128,128,1 
28,224,224:SYMB0L 36,127,7,7,1,1,1, 

1,1:SYMBOL 37,254,224,224,128,128,1 
28,128,128 

310 SYMBOL 177,M1111,M10111111,M )«A 
11111110,M11111100,M11111000,M10 
110000, MO, MO: SYMBOL 178,10, Mil 1, 
M1111,M11111,M10111,M111,M1111 
,M1111:SYMB0L 179, Ml 1000000, MlOl 
10000,M11111000,M11111111,M10000 
001,M11010100,M11111100,MO 
320 SYMBOL 180,MO,MO, MO,MO, MIO >GR 
000000, &X0, MO, MO: SYMBOL 181, MO, & 
IO,MO,M100001,M110011,M11111,M 
110011,M100000: SYMBOL 182,M0,M11 
1000,M1101100,M11111110,M1010101 
1,M11111011,M10101110,M11111110 
330 SYMBOL 183, Ml 10100, Ml 1100, AXO >EG 
0001110,Mlllll,M1110,M11100,Mli 
1000, Ml 111100 : SYMBOL 184, Ml 111000 
0,M1011000,M1101ÛOOO,M1111000,M 
11111000,M111100,M11000,M11110:S 
YMBOL 252,MO,MO,MO,MO,M111100, 
M1100110,M110,M111100 

335 SYMBOL 251,M1100000,M1100110, >KP 
MllllllO 

336 SYMBOL 140, MO,MO, MO,Ml 100, & >KD 
X100110,Mlllllli0,Mlllllll,Mllll 

1110 : SYMBOL 141, MO, MO, MO, MO, MO 

, MO, MlOOOOOOO, VIO:SYMBOL 142,MU 

11111,MU0U0,M100U1,MU0U1,M 

10011,MU0100,M100,M100 

338 SYMBOL 249,MIOIOOOOO, Ml 111000 >DN 

0,MU100000,MU101000,MU1UOOO, 

Ml 1110000, Ml 1100000, Ml 1000000 : SY 
HBOL 146,M1,MUU11,M1010U,M0, 
MUUUU,MUU1,MU01,M11 
340 SYMBOL 185,M0,M10,MU,MU,I( >GF 
XI, Ml, MO, MO: S YMBOL 186,MU10100 


,M10OU0,M10U00,MU10O0,MUUl 
000,MU1000(K},MÛ,MÛ:SYHSÛL 254, 
XO,MO,MO,MO,MUUO,MUOO,MUO 
0, Ml 100:SYMBOL 253, Ml 1001100, MU 
001100,MllllOOO 

350 DATA 26,22,2e,0b,cd,75,bb,3e >YX 

360 DATA ae,cd,5a,bb,3e,af,cd,5a >ZT 

370 DATA bb,3e,80,cd,5a,bb,26,22 >Z£ 

380 DATA 2e,Oc,cd,75,bb,3e,ad,5a >ZU 

390 DATA cd,5a,bb,00,00,c9 )TF 

400 DATA 26,22,2e,0b,cd,75,bb,3e >YT 

410 DATA b2,cd,5a,bb,3e,b3,cd,5a >ZZ 

420 DATA bb,3e,b4,cd,5a,bb,26,22 >ZQ 

430 DATA 2e,0c,cd,75,bb,3e,bl,cd >ZN 


440 DATA 5a,bb,cg >LP 

450 DATA 3e,00,06,00,cd,4d,bc,c9 >YS 

460 DATA 3e,00,06,ff,cd,4d,bc,c9 >ZG 

470 MEMORY A6FFF >LF 

480 FOR TO 89:READ v$:P0KE t(6FF >XH 
F+i,VAL("i‘+v4):t=t+VAL<*li'+v»):NEX 
T i 

490 RUN’'SERPENTO.OOi >qM 


serpento 001 


«llIftfiiltiitflKillilMHIIil >FA 


FREDERIC JULIEN 



9 MODE 1:RUN 2040 >U 

10 MODE 1:INK 0,û:B0RDER 0:INK 1,2 >JR 
:INK 2,26:INK 3,6:VIE=4:TABL=1:DIM 
1(400),Y(400) 

20 PEN 1:F0R a=28 TO 39 STEP 2:L0CA >HG 
TE A,1:PRINT CHR$(214):NEXT:PEN 2:F 
OR A=29 TO 39 STEP 2:LÛCATE A,1:PRI 
NT CHR4(215):NEXT:PEN 1:F0R a=28 TO 
39 STEP 2:L0CATE A,24:PRINT CHR((2 
l3):NEn:PEN 2:F0R A=29 TO 39 STEP 
2:L0CATE A,24:PRINT CHR$(212):NEXT 
30 PEN 1:F0R A=2 TO 23 STEP 2:L0CAT >FJ 
E 27,A:PRINT CHR»(214):NEn:PEN 2:F 


28 





os Â =3 TO 24 STEP 2:L0CATE 27,A:PRI 
NT CHR$(213);NEXT;PEN l:FOR A=2 TO 
23 STEP 2:L0CATE 40,A:P81NT CHS$(21 
5):NEn:PEN 2:F0R A=3 TO 24 STEP 2: 
LOCATE 40,A:PRINT CHR$(212):NEn 
40 PEN 3:F0R A=l TO 26:L0CATE A,1:P >LN 
RINT CHRI(i43):NEn:F0R A=l TO 26:L 
OCATE A,24:PRINT CHR$(143):NEXT:FOR 
A=1 TO 24:L0CATE l,A:PRiNT CHR$(14 
3):NEn:FÛR A=1 TO 24:L0CATE 26.A:P 
RINT CHR$(143):NEXT:U1ND0U 11,2,25, 
23,2:PAPER il,0:CLSil 
50 HOVE 435,345,3::TAG:PRINT CHR$(9 >ZG 
7) KHRI (99 ) 4CHR$ ( 101 ) ♦CHRI ( 103) 4CHR 
I(105)4CHRI(99)+CHR$(109);:HOVE 433 
,328,2:P81NT CHRI{98)+CHRI(100)+CHR 
$(102)+CHR$(104)+CHRI(106)+CHR$(100 
)OR$(108); 

60 HOVE 435,30Û,3:PRINT CHR$(113)iC >AN 
H8$(117)*CHR$(115)+CHR$(119)+CHR$(1 
05);:HOVE 433,284,2:PR INT CHRI{114) 
iCHRI (118) 4CHR4 ( 116 ) +(>1R$ ( 120 ) +CHRI 
(106); 

70 HOVE 435,263,3:PRI)7r CHR$(109)+C >YF 
HR$(111)+CHRI(105);:H0VE 433,246,2: 
PRINT CH8$(110)iCHR$(112)+CHR$(106) 


290 ■=! >PG 
320 » >RF 
330 TAG >TE 
350 » >RJ 


370 GRAPHICS PEN 1,0:GRAPHICS PAPER >EB 
0 

380 ei=i:e=J0Y(0):IF e=6 08 e=5 THE >CE 
N 380 ELSE IF e=16 THEN 560 
390 IF e>0 AND e<9 THEN IF eOi THE >UD 
N IF AflS(i-e)<>l AND ABS (i-elOA T 


HEN 1=6 

400 » >RE 
410 ax=x:ay=y >YA 
420 x=xn6i(i=4)-16»(a=8) >TK 
430 y=yn6»(a=2)-16*(i=l) >TD 


431 IF B<1 THEN HU=REHAIN(0):B=BT:T >UF 
AG:EI:G0T0 580 

440 t=TEST(x+8,y):IF t=3 THEN x=ax; >ZF 
y=ay:i=ei:GÛTO 380 

450 IF T=2 THEN FOR K=50 TO 30 STEP >VH 
-2:S0UND 4,K,1,15:SOUND 4,K«1.5,1, 

15 : NEH : L=L^3 : CH=CH-1 : SC=SC+5 : fW VE 
520,293,3:PRINT SC;:GOSUB 2180:GOTO 
480 

460 IF t=l THEN 560 >HB 

470 HOVE x(I-L+l),Y(I-L+l):PRINT « >DA 


80 HOVE 435,180,3:PRINT CHR$(101)+C >UL 
HRI(115)^CHRI(121)+CHR$(107)+CHR$(1 
13);:H0VE 433,165,2:PRINT CHR$(102) 
+CHRI(116)iCHRI(122)♦CHRI(108)+CHRI 
(114);-.GOTO 710 

90 TAGOFF:PEN 3:LOCATE 29,18:PR INT >DD 
CHRI(123)+CHRI(124)+CHRI(125)+CH8I( 

126)^CHRI(127):LOCATE 29,19:PEN 2:P 
RINT CHR$(255)4CHR$(129)^CHR$(130)4 
CHRI(131)+CHRI(132)4CHR$(133) 

100 PEN 1:L0CATE 32,21:PRINT CHRKl >HH 
34)4CH8I(135)^CH8I(136)4CHR$(135):P 
EN 3:L0CATE 32,22:PRINT CHR$(137)+C 
HRI ( 138 ) Km ( 139 ) KHR$ ( 138) : TAGOFF 


:GOSUB 1070 

110 ’IfiitfiiifiitiXiilfiitfXXtfXXX >RC 

120 BOUCLE PRINCIPALE )8D 

« 

130 'fiviifivffixiffxiifixfftfiiiivf >RE 
liX« 

150 nH=70:nc=l5:nd=9:ta=l >UD 

250 CH=CHT >TF 

255 EVERY 50,0 GOSUB 2000 >RF 

260 x=320:y=206:l=2:l=l >RZ 

270 x(l)=320:y(l)=206 >NG 


I 480 I = in:I(I)=X:Y(I)=lf >TE 

! 490 HOVE AX,AY,1;P8INT CHRI(202); >BQ 
; 500 HOVE I,Y,1:PRINT CHR$(227); >ZX 
!510 IF CH=0 THEN SC=SC+B:HOVE 520,2 >BJ 
: 93,3:PRINT SC;:TABL=TABL+1:H0VE 545 
i ,337:PRINT TABL;:TAGOFF:HU=8EHAIN(0 
):GOSUB 2320:CLSI1:GOTO 711 
520 GOTO 380 >ZE 

530 READ L1,L2,R:IF L1=0 THEN RESTO >PT 
RE:GOTO 530 

540 SOUND 8,L1,5,15,1,1:SOUND R+2,L >XY 
2,3,15,1,1:RETURN 

550 DATA 60,100,66,40,110,2,70,120, >CE 
2,45,130,2,100,140,2,0,0,0 
560 SOUND 129,0:S0UND 130,0:S0UND 1 >FY 
132,0 

; 580 » >TD 

j 590 FOR K=I TO I-L+1 STEP -1 >UJ 

600 HU=REHAIN(0):B^BT:EI:HOVE X(K), >DJ 
Y(K):PRINT CHR$(238); 
î 610 FOR J=15 TO 3 STEP -2:S0UND 17, >DU 
I 1000,1,J,0,0,10:S0UND 10,500,1,J,0, 
0,30:NEXT 

I 620 HOVE I(K),Y(K);PRINT * >XH 

I 630 NEÏT >EE 

640 TAG0FF:L0CATE 33,15:PRINT B:VIE >TF 


=VIE-1:PEN 3:L0CATE 31,10:PEN 3:PRI 
NT VIE:GOTO 2990 

680 IF N0=0 THEN N=0:N02=0 ELSE N=1 >UZ 
:IF FU62=1 THEN N02=N0-2 aSE N02= 

NO 

690 ’ >TF 

700 RETURN >ZC 

710 PEN 1:H0VE 545,337:PRINT TABL;: >XQ 

HOVE 520,293:PRINT SC;îHOVE 480,255 
;PRINT VIE;:TAGOFF 

711 GOSUB 770 >JC 

720 READ A,0,PN,L,C:1F A=-l THEN 90 >QB 

aSE LOCATE A,0:PEN PN:PRINT ST8IN 
G$(L,C):GOTO 720 

724 ’>TD 

fi«« 

725 ’i TABLEAU No 1 >TE 

« 

726 ’>TF 

ifXX 

730 DATA 12,2,3,14,207,3,3,3,5,207, >yF 

9.3.3.1.207.25.3.3.1.207.3.4.3.2.20 

7.9.4.3.1.207.12.4.3.12.207.25.4.3, 
1,207,3,5,3,2,207,6,5,3,2,207,9,5,3 
, 1,207,23,5,3,1,207,25,5,3,1,207,3, 

6.3.2.207.6.6.3.2.207.9.6.3.1.207.2 

3.6.3.1.207.25.6.3.1.207 

740 DATA 9,7,3,1,207,12,7,3,7,207,2 >HR 

3.7.3.1.207.25.7.3.1.207.3.8.3.7.20 

7.12.8.3.7.207.23.8.3.1.207.25.8.3, 
1,207,3,9,3,7,207,12.9,3,7,207,23,9 
, 3,1,207,25,9,3,1,207,21,10,3,3,207 
,25,10,3,1,207,10.11,3,7,207,21,11, 

3.1.207.25.11.3.1.207 

750 DATA 3,12,3,2.207,6,12,3,2,207, >PX 

10.12.3.1.207.25.12.3.1.207.3.13.3, 

2,207,6,13.3,2.207,10,13.3,4,207,16 
,13,3,1,207,18,13,3,1,207,25,13,3,1 
,207,3.14.3,2.207,6,14,3,2,207,10,1 

4.3.4.207.16.14.3.1.207.18.14.3.1.2 
07,21,14,3.3,20/,25,14,3,1,207 

760 DATA 3,15,3,2,207,6,15,3,2,207, >K8 

16.15.3.1.207.18.15.3.3.207.23.15.3 
,1,207,25,15,3,1,207,3,16,3,2,207,6 
,16,3,2,207,16,16,3,1,207,20.16,3,1 
,207,23,16,3,1,207,25,16,3,1,207,3, 

17.3.2.207.6.17.3.6.207.16.17.3.1.2 
07,20,17,3,1,207,23,17,3,1,207,25,1 

7.3.1.207 

765 DATA 3,18,3,2,207,16,18,3,5,207 >GA 
, 23,18,3,1,207,25,18,3,1,207,3,19,3 
, 4,207,10,19,3,2,207,23,19,3,1,207, 

25.19.3.1.207.3.20.3.9.207.23.20.3, 

1.207.25.20.3.1.207.23.21.3.1.207.2 


29 






5.21.3.1.207.3.22.3.9.207.13.22.3.1 

1.207.25.22.3.1.207 

766 DATA 5,4,2,1,228,8,7,2,1,228,22 >l« 

,11,2,1,228,11,12,2,1,228,23,13,2,1 

,228,5,16,2,1,228,19,16,2,1,228,15, 

23,2,1,228,8,18,1,1,224,9,23,1,1,22 

4,24,12,1,1,224,-1,0,0,0,0 

770 >TE 

iii 

780 ’t TABLEAU +1 .Jf >TF 

£! T.Vtr--."- 

• yf’i: ■ 

790 >TG 

Iii 

800 IF TABL=1 THEH SYMBOL 207,239,2 >RY 
39,239,0,254,254,254,0:CHT=e:B=55;B 
T=55;RESTORE 730 

810 IF TABL=2 THEH SYMBOL 207,127.1 >UH 
57,200,226,62,136,35,255:CHT=9:B=30 
:BT=30:REST0BE 900 

811 IF TABL=3 THEH SYMBOL 207,255,1 >AQ 
65,165,189,189,165,165,255:CHTM0:B 
Ml:BT=41:RESTqRE 2250 

812 IF TABLM THEH SYMBOL 207,255,2 >AA 
19,153,255,153,255,129,255:CHT=10:B 

==41 :BT=41; RESTORE 3080 

813 IF TABL=:5 THEH SYMBOL 207,^5,1 >AT 
57,183,231,205,153.253,255:CHT=12:B 
=40:BT:40:RESTORE 3350 

814 IF TABL=6 THEH SYMBOL 207,255,1 >AJ 
29,191,189,1B9,189,161,25S:CHT=13:B 
=70:BT=70:RESTORE 3450 

815 IF TABL=7 THEH 3510 >QY 

820 RETURN >ZF 

830 ’tiiiiiiiiiiiiiiitiliiiiiHilii >TB 

“H 

iili 

840 ’« TABLEAU No 2 

i 

850 'illiiiiiiiiiiiiliiilii*«**«*> >TD 

iili 

900 DATA 2,2,3,24,207,2,3,3,24,207, >BU 
2,4,3,1,207,20,4,3,6,207,2,5,3,1,20 
7,21,5,3,5,207,2,6,3,1,207,6,6,3,1, 
207,9,6,3,1,207,22,6,3,4,207,2,7,3, 
1,207,6,7,3,1,207,9,7,3,1,207,22,7, 

3.4.207 

910 DATA 2,8,3,1,207,6,8,3,1,207,7, >PM 
8,1,1,224,9,8,3,2,207,25,8,3,1,207, 

6.9.3.4.207.12.9.3.2.207.25.9.3.1.2 
07,2,9,3,1,207,6,10,3,2,207,8,10,1, 

1.224.11.10.3.4.207.22.10.3.1.207.2 

5.10.3.1.207 

920 DATA 6,11,3,2,207,10,11,3,2,207 >AE 
,14,11,3,2,207,22,11,3,4,207,2,12,3 
,1,207,9,12,3,3,207,14,12,3,3,207,2 


,10,3,1,207,2,11,3,1,207,6,12,3,1,2 
07,2,13,3,1,207,8,13,3,4,207,14,13, 

3.4.207.20.13.3.1.207.24.13.3.1.207 
930 DATA 2,14,3,1,207,20,14,3,1,207 >LU 
,24,14,3,1,207,2,15,3,1,207,8,15,3, 

10,207,20,15,3,1,207,22,15,1,1,224, 

24,15,3,1,207,25,15,1,1,224,2,16,3, 
1,207,9,16,3,3,207,14,16,3,3,207,20 
,16,3,5,207 

940 DATA 10,17,3,2,207,14,17,3,2,20 >YP 
7,21,17,3,4,207,11,18,3,1,207,14,18 
,3,1,’207,22,18,3,3,207,2,17,3,1,207 
,2,18,3,1,207,2,19,3,1,207,2,20,3,1 
,207,2,21,3,9,207,12,21,3,11,207,2, 

23.3.9.207.12.23.3.11.207 

950 DATA 2,22,1,1,224,11,23,1,1,224 >KM 
,24,22,1,1,224,23,10,2,1,228,7,7,2, 
1,228,9,11,2,1,228,12,12,2,2,228,12 
, 17,2,2,228,6,22i 2,1,228,17,22,2,1, 
228,-1,0,0,0,0 

960 'iiliiiiiiiliiiiiiiii***l****** >TF 

iili 

970 ’I GAME OVER >TG 

i 

980 'iiiiiiiliiiiiiiiilKi********* >TH 

iili 

990 MU=REMAIN(0):CLSI1:PEN 1:L0CATE >PJ 
i 2,10:PRINT CHR»(150)+CHR»(154)+CHR 
4(156):L0CATE 2,11:PRINT CHR4(149): 

PEH 2:L0CATE 2,12;PRIKT CHR4(149)+C 
HB4(151)^CHR4(156):PEN 3:L0CATE 2,1 
3;PR1HT (aiR4(147)+(3(R4(154)+CHR4(15 
3) 

1000 PEH ItLOCATE 5,10:PR1NT (31R4(1 >HJ 
50)iCHR4(154)tCHR4(156):LDCATE 5,11 
:PRINT CHR4(149):L0CATE 7,11:PRINT 
CHR4(149):PEN 2:L0aTE 5.12:PRINT C 
HR4(151)^CHR4(154)iCHR4(157):PEN 3: 
LOCATE 5,13:PRINT C»R4(145):L0CATE 
7,13:PRIirr CHR4(145) 

1010 PEH 1:L0CATE 8,10:PRINT CHR4(1 >NR 
50)^CHR4(158)+CHR4(156):L0CATE 8,11 
:PR1NT CHR4(14â)^CHR4(149>^CHR4(149 
):PEN 2:L0CATE B,12:PRINT STRING4(3 
,149):PEN 3:L0CATE 8,13:PRINT STRIN 
G4(3,145) 

1020 PEH 1;L0CATE 11,10:PRINT (31R4( >XD 
150)^CHR4(154)4CHR4(157):L0CATE 11, 
IhPRINT CHR4(149):PEN 2:L0CATE 11, 
12;PR1NT (aiH4(151)+CHR4(157):PEH 3: 
LOCATE 11,13:PRINT CHR4(147)4CHR4(1 
54)4CHB4(157) 

1030 PEH 1:L0CATE 15,10:PRINT CHR4( >FJ 



150)4CHR4(154)4CHR4(156):L0CATE 15, 
IhPRIHT CHRK149):LOCATE 17,11:PRI 
NT CHR4(149):PEN 2:L0CATE 15,12:PRI 
NT CHR4(149):LOCATE 17,12:PRIHT CHR 
4(149):PEN 3:L0CATE 15,13:PRINT CHR 
4(147)4CHR4(154)4CHR4(153) 

1040 PEN 1:TAG:H0VE 270,248,1:PRINT >LN 
CHR4(211)4CHR4(209);:H0VE 270,245: 
PRINT CHR4(211)4CHR4(209);:H0VE 270 
.,235:PRINT CHR4(211)4CHR4(206);:M0V 
E 270,225,2:PRINT CHR4(211)4CHR4(20 
9);:H0VE 270,213,3:PR1NT CHR4(205)4 
CHR4(204); 

1050 TAGOFF:PEN 1:L0CATE 20,10:PRIN >RT 
T CHR4(150)4CHR4(154)4CHR4(157):LOC 
ATE 20,11:PRIHT CHR4(149):PEN 2:L0C 
ATE 20.12:PRINT CHR4(151)4CHR4(157) 

:PEN 3:L0CATE 20,13:PRINT CHR4(147> 
4CHR4(154)4CHR4(157) 

1060 PEN 1:L0CATE 23,10:PRINT CHR4( >AU 
150)4CHR4(154)4CHR4(156):LOCATE 23, 
IhPRINT CHR4(149):L0CATE 25,11:PRI 

NT CHR4(149):PEN 2:L0CATE 23,12:PRI 
NT CHfi4(151)4CHR4(158)4CHR4(153):PE 
N 3:L0CATE 23,13:PRINT CHR4(149)4CH 
R4(149) 

1061 HHILE IN)ŒY4<>*'':UEND:CALL ABB >KJ 
06:RUN 

1065 'fiftifiifitiffiitfifififfttii >YE 

iili 

1066 ’i DESSIN TABLEAUX . >YF 

« 

1067 >YG 

fi«i 

1070 PEN 2:L0CATE 299l3:PRINT STRIN >BU 
G$(g,176):PEN 1:LÛCATE 29,12:PRINT 
CHRI(168)+CHRI(169)+CHRI(170)^CHRI( 
171)*CHR$(172)+CHR$(173);L0CATE 34, 
IhPRINT CHRI( 174)4CHR$( 175) 

1080 PEN 1:L0CATE 36,17:PRINT CHRK >YA 
34)iCHRK35):L0CATE 36,18:PRiNT CHR 
K36)^CHRK37):L0CATE 29,21:PRINT C 
HRK34)iCHRK35):L0CATE 29,22:PR1NT 
CHRK36)iCHRK37):L0CATE 36,9:PRIN 
T CHRK34)4CHRK35):LOCATE 36,i0:PR 
INT CHRK36)^CHRK37): 

1090 LOCATE 38,14:PRINT CHRK43):L0 >GN 
CATE 31,17:PRINT CHRK43):LOCATE 30 
,6:PR1NT CHRK43):L0CATE 37,2i:PRIN 
T CHRK34)tCHRK35):L0CATE 37,22:PR 
INT CHRK36)^CHRK37):LÛCATE 36,3:P 
RINT CHRK43):LOCATE 38,7:PRINT CHR 
K43):TAG:RETURN 

2000 01:TAGOFF:LOCATE 33,iS:B^B-l:P >DL 


30 




RINT 

2010 

fi«« 

2020 

« 

2030 


B:EI:TAG:8EmN 





>XF 

>XG 

>XH 


2040 iNK 1,0: INK 2,0: INK 3,0:CLS:SY >qu 
KBOL 207,127,157,200,226,62,136,35, 

255:INK 0,0:B0RDER 0:RESTORE 2051 
2050 READ A,0,PN,L,C:IF A=-l THEN P >HU 


EN 1:FOR a=2 TO 39 STEP 2:L0CATE A, 
24:PRINT CHR$(214):NEn:PEN 2:F0R A 
=3 TO 39 STEP 2:L0CATE A,24:PRINT C 
HR$(215):NEXT:G0TÛ 2101 ELSE LOCATE 


A,0:PEN PN:PRINT STRINGI(L,C):GOTO 
2050 

2051 DATA 11,16,2,1,137,13,16,2,1,2 >XU 

53.14.16.2.1.116.15.16.2.1.108.16.1 

6.2.1.106.17.16.2.1.120.11.17.3.1.2 

52.13.17.3.1.111.14.17.3.1.121.15.1 
7,3,1,113,16,17,3,1,97,17,17,3,1,11 
9,18,17,3,1,107 

2052 DATA 19,17,3,1,117,20,17,3,1,9 >GU 

7.21.17.3.1.111.22.17.3.1.115.23.17 
,3,1,121,24,17,3,1,113,11,18,2,1,25 

1.13.18.2.1.112.14.18.2.1.122.15.18 
,2,1,114,16,18,2,1,98,17,18,2,1,120 
,18,18,2,1,108,19,18,2,1,118 

2053 DATA 20,18,2,1,98,21,18,2,1,11 >ZR 

2.22.18.2.1.116.23.18.2.1.122.24.18 
,2,1,114 

2060 DATA 1,1,3,4,207,6,1,3,4,207,1 >CA 

1.1.3.4.207.21.1.3.4.207.26.1.3.4.2 
07,31,1,3,5,207,37,1,3,4,207,1,2,3, 

1.207.6.2.3.1.207.11.2.3.1.207.14.2 
,3,1,207,16,2,3,1,207,19,2,3,1,207, 

21.2.3.1.207.26.2.3.1.207.29.2.3.1, 

207.33.2.3.1.207.37.2.3.1.207.40.2, 

3.1.207 

2070 DATA 16,1,3,4,207,1,3,1,1,207, >yH 

6.3.1.1.207.11.3.1.4.207.16.3.1.4.2 
07,21,3,1,1,207,26,3,1,1,207,29,3,1 
,1,207,33,3,1,1,207,37,3,1,1,207,40 
,3,1,1,207,1,4,1,4,207,6,4,1,3,207, 

11.4.1.1.207.13.4.1.1.207.16.4.1.1, 

207.21.4.1.3.207 

2080 DATA 26,4,1,1,207,29.4,1,1,207 >PZ 

,33,4,1,1,207,37,4,1,1,207,40,4,1,1 

,207,4,5,1,1,207,6,5,1,1,207,11,5,1 

,1,207,13,5,1,1,207,16,5,1,1,207,21 

,5,1,1,207,26,5,1,1,207,29,5,1,1,20 

7.33.5.1.1.207.37.5.1.1.207.40.5.1, 


1.207 

2090 DATA 4,6,2,1,207,6,6,2,1,207,1 >XT 

1,6,2,1,207,13,6,2,1,207,16,6,2,1,2 
07,21,6,2,1,207,26,6,2,1,207,29,6,2 
,1,207,33,6,2,1,207,37,6,2,1,207,40 
,6,2,1,207,1,7,2,4,207,6,7,2,4,207, 
î 11,7,2,1,207,13,7,2,1,207,16,7,2,1, 

207.21.7.2.4.207 

2100 DATA 26,7,2,1,207,29,7,2,1,207 >FT 
,33,7,2,1,207,37,7,2,4,207,9,13,1,2 

2,207,9,20,1,22,207,1l,15,3,1,134,1 

3,15,3,1,254,14,15,3,1,115,15,15,3, 

1,107,16,15,3,1,105,17,15,3,1,119, - 

1,0,0,0,0 

2101 PRiNT CHR$(23)CHRI(1);:TAG:H0V >GU 
E 150,230,2:PRINT»FREDERIC JULIEN 1 
989";:H0VE 152,232,3:PRINT»FREDERIC 

JULIEN 1989";:TAG0FF:PEN 1:F0R A=1 
4 TO 20:L0CATE 9,A:PRINT CHR$(207): 
NEXT:FOR A=14 TO 20:L0CATE 30.A:PRI 
NT CHR$(207):NEXT 

2102 PEN 2:FOR a=2 TO 39 STEP 2:L0C >By 
ATE A,25:PRINT CHR$(213):NEIT:PEN 1 
:FOR A=3 TO 39 STEP 2:L0CATE A,25:P 

I RINT CHR$(212):NEXT 
: 2110 PEN 2:L0CATE 1,10:PRINT STRING >DQ 
I $(40,176):PEN 1:L0CATE 14,9:PRINT C 
I HR$(168)^CHRI(169)iCHR$(170)iCHRI(l 
71)+CHR$(172)^CHRI(173):L0CATE 19,8 
:PR1NT CHR$(174)iCHR$(175):INK 1,6: 

INK 2,2:INK 3,26 

2123 IF 1NKEYI="1» THEN FOR T=1 TO >FP 
18:CALL &7049:F0R B=1 TO 10:NEn:NE 
XT:FÛR T=1 TO 25:CALL «f7051:FûR B=1 
TO 10:NEIT:NEXT:RUN 10 
2124 IF INKEY(14)=0 THEN FOR T=1 TO >LF 
16:CALL &7049:F0R B=1 TO 10:NEXT:N 
EIT:FOR T=1 TO 25:CALL &7051:F0R B= 

1 TO 10:NEÏT:NEXT:INK 1,26:INK 2,2: 

INK 3,6:RUN 3190 

2126 PEN 1:L0CATE 19,8:PRINT CHR$(1 >FN 
74)^CHR$(175)+CHR$(128):L0CATE 19,9 
:PRINT CHRI(173):F0R T=1 TO 300:NEX 
T:LOCATE 19,8:PRINT CHR$(178)iCHR$( 

I 179)+CHR$(180):L0CATE 19,9:PRINT CH 
! RI(177):F0R T=1 TO 300:NEn 
1 2140 GOTO 2123 >MC 

2150 >YA 

Xil 

2160 »x SERPENT HANGE >YB 

2170 ’xxtixxxxxxxtxxxxxxxiixxxxxxxi >YC 

XXX 


2180 TAGOFF:PEN 1:CALL fc7026:F0R H >QT 
=1 TO 250:NEXT 

2190 TAGOFF:CALL i7000:TAG:RETURN >CJ 
2220 'ixxxfxxxtxxxxxxxfxixtfxxtfiit >XJ 

2230 ’x TABLEAU No 3 >XK 

X 

2240 ’ixxxfxxffxxfffxxifxxfxxxffxxx >YA 

ffX 

2250 DATA 2,2,3,1,207,3,2,1,1,224,2 >AE 

1.2.1.1.224.2.3.3.4.207.7.3.3.4.207 
,15,3,3,7,207,23,3,3,1,207,3,4,3,1, 

207.4.4.2.1.228.9.4.2.1.228.10.4.3, 

1.207.15.4.3.2.207.19.4.2.1.228.20, 

4.1.1.224.21.4.3.1.207.23.4.3.1.207 
2260 DATA 3,5,3,1,207,9,5,2,1,228,1 >TG 
0,5,3,1,3,15,5,3,2,207,18,5,3,1,207 
,21,5,3,1,207,23,5,3,1,207,3,6,3,1, 

207.8.6.3.3.207.18.6.3.1.207.19.6.1 
,1,224,21,6,3,1,207,22,6,2,1,228,23 
,6,3,1,207,10,5,3,1,207 

2270 DATA 3,7,3,1,207,8,7,3,3,207,1 >TG 

5.7.3.2.207.21.7.3.1.207.23.7.3.1.2 
07,3,8,3,1,207,8,8,3,3,207,15,8,3,4 
,207,20,8,3,2,207,23,8,3,1,207,3,9, 

3,l,20/,4,9,2,1,228,15,9,3,4,207,20 
,9,3,2,207,23,9,3,1,207 

2280 DATA 3,10,3,4,207,3,12,3,4,207 >DB 
,9,12,3,8,207,19,12,3,2,207,3,13,3, 

1.207.9.13.3.1.207.16.9.3.1.207.20, 

13.3.1.207.3.14.3.1.207.9.14.3.1.20 
7,14,14,2,1,228,15,14,3,2,207,22,14 
,3,1,207 

2290 DATA 3,15,3,1,207,9,15,3,1,207 >GA 
,14,15,3,2,207,22,15,3,2,207,2,16,1 
,1,224,3,16,3,1,207,9,16,3,1,207,13 
,16,3,2,207,20,16,3,1,207,23,16,3,2 
,207,3,17,3,1,207,6,17,3,4,207,12,1 

7.3.2.207.20.17.3.1.207.24.17.3.2.2 
07 

2300 DATA 3,18,3,1,207,6,18,3,1,207 >PX 

,11,18,3,2,207,15,18,3,4,207,20,18, 

3,1,207,25,18,3,1,207,3,19,3,1,207, 

6.19.3.1.207.10.19.3.2.207.15.19.3, 

1.207.17.19.2.1.228.18.19.3.1.207.2 
0,19,3,1,207 

2310 DATA 3,20,3,1,207,9,20,3,2,207 >PÜ 

,15,20,3,1,207,18,20,3,1,207,20,20, 

3,1,207,3,21,3,1,207,8,21,3,2,207,1 

8.21.3.1.207.19.21.2.1.228.20.21.3, 

1.207.3.22.3.8.207.12.22.3.9.207.20 
,23,2,1,228,-1,0,0,0,0 

2320 ’xxxfxxxxxxxffxxxfxxxixxxxxxxt >XK 

XXX 


31 


2330 ’» 


PASSAGE D’UN TABLEAU 


2340 


2350 TAG0FF:L0CATE 34,15:PBINT''0 
•îGOSUB 3795:RETURN 


2360 ’III 

2370 *« PERTE D’Ü%VIE ^;^M 


2370 ’i 


2380 ’ iiiiiiiiiitifiiiiiiiiiii>*i>* 
liii 

2990 PEH l:CAa i7026:ENV 1,1,15,1, 
1,0.100.15,-1,8:ENT 1,15.-15,16.5,1 
5,5:SÛUND 1,1200,-1,0,1,1:F0R TM T 
0 1000:NEn 

3000 TAGOFF:PEN 3:L0CATE 34,11:PR1N 
T* "tPEN 1:L0CATE 35,11:PRINT CHR4 
(140)+CHR$(141):L0CATE 35,12:PRIHT 
CHR»(142):PEN 1:F0R TM TO 500:NEXT 
:LOCATE 35,11:PRIMT" •rLOCATE 35,1 
2:PRINT'' 

3010 LOCATE 36,12:PRINT CHR»(146)+C 
HR$(249) 

3020 IF VIE=0 THEN 990 ELSE FOR IM 
TO 100:SOUND 1,I,1,9:NEXT I 
3030 TAG0FF:PEN 3:L0CATE 36,12:PRIM 
T* VPEN 1:L0CATE 35,11:PR1NT CHR» 
(140)+CHR»(141):LOCATE 35,12:PR1NT 
CHR$(142):PEN 1:F0R TM TO 500:MEXT 
:LOCATE 35,11:PRIMT* *:LOCATE 35,1 
2: PR INT" •:CALL 1.7000 
3040 GOTO 255 


>FA 


>FE 


3050 ' >ÏA 

* * * * ‘ ’ 

3060 ' t ggî TABLEAU No 4 ^,;^^ >YB 

3070 'iîiiiiiiiiiiiiiiiiiiiiiiiiiii >YC 


iiii 


3080 DATA 3,3,3,9,207,17,3,3,3,207, >BG 

3.4.3.1.207.14.4.3.1.207.18.4.3.1.2 
07,24,4,3,1,207,3,5,3,1,207,14,5,3, 
1,207,23,5,3,2,207,3,6,3,1,207,14,6 
,3,1,207,22,6,3,3,207 

3090 DATA 3,7,3,4,207,8,7,3,7,207,2 >XZ 

1.7.3.4.207.3.8.3.3.207.8.8.3.1.207 
,20,8,3,2,207,24,8,3,1,207,3,9,3,2, 

207.7.9.3.2.207.10.9.3.6.207.19.9.3 
,3,207,24,9,3,1,207 

3100 DATA 3,10,3,1,207,6,10,3,3,207 >QK 
,10,10,3,1,207,10,11,3,1,207,3,12,3 
, 8,207,20,14,3,1,207,3,15,3,6,207,1 
0,15,3,7,207,19,15,3,2,207,22,15,3, 

2.207 


3110 DATA 22,14,3,1,207,3,16,3,1,20 >EU 
7,13,16,3,1,207,3,17,3,1,207,13,17, 

3.1.207.17.17.3.2.207.24.17.3.1.207 
,3,18,3,1,207,6,18,3,1,207,13,18,3, 

1.207.18.18.3.2.207.24.18.3.1.207 

3120 DATA 3,19,3,4,207,13,19,3,1,20 >MM 
7,19,19,3,2,207,24,19,3,1,207,3,20, 

3.1.207.6.3.3.1.207.13.20.3.1.207.1 
7,20,3,1,207,20,20,3,2,207,24,20,3, 
1,207,3,21,3,1,207,13,21,3,1,207,17 
,21,3,1,207,21,21,3,2,207,24,21,3,1 
,207 • 

3130 DATA 3,22,3,1,207,10,22,3,1,20 >RD 

7,13,22,3,1,207,17,22,3,1,207,22,22 

, 3,1,207,24,22,3,1,207,2,23,3,3,207 

,10,23,3,4,207,17,23,3,1,207 

3140 DATA 13,4,2,1,228,4,6,2,1,228, >DK 

7.8.2.1.228.15.8.2.1.228.5.11.2.1.2 

28.4.18.2.1.228.5.18.2.1.228.2.22.2 
, 1,228,18,23,2,1,228,24,23,2,1,228 
3150 DATA 7,5,1,1,224,9,8,1,1,224,2 >ET 
1,15,1,1,224,9,19,1,1,224,16,11,1,1 
,224,23,20,1,1,224,-1,0,0,0,0 

3160 ’iiiifiiiiiifiiiiiiiitiiiiiiii >YC 

iiii t 

3170 ’» INSTRUCTION >YD 

I 

3160 ’iiifiiiiiiiiiiiiiiiiiiiiiiiii >YE 

iiii 

3190 CLS:PEN 1:F0R a=2 TO 39 STEP 2 )Ty 
:LOCATE A,1:PRINT CHR$(214) :NEn:PE 
N 2;F0R A=3 TO 39 STEP 2:L0CATE A.l 
:PRINT CHB»(215):N£XT:PEN 1:F0R a=2 
TO 39 STEP 2:L0CATE A,24:PR1NT CHR 
*(213):NEIT:PEN 2:F0R A=3 TO 39 STE 
P 2:L0CATE A,24:PRINT CHR»(212):NEX 
T 

3200 PEN 1;F0R A=2 TO 23 STEP 2:L0C >EB 
ATE 1,A:PRINT CHR$(214):NE1T:PEN 2: 

FOR A=3 TO 24 STEP 2:LOCATE l.AiPRI 
NT CHR$(213):NEXT:PEN 1:F0R A=2 TO 
23 STEP 2:L0CATE 40,A:PR1NT CHR$(21 
5):NEn:PEN 2:F0R A=3 TO 24 STEP 2: 
LOCATE 40.A:PR1NT CHRI(212):NEXT 
3210 LOCATE 14.2:PEN 1:PRINT CHR*(1 >UF 
ll)iCHR*(121)iCHR$(113)iCHR$(97)4CH 
R$(119)ICHR4(107)iCHRA(117)iCHRA(97 
)^CHRA(111)iCHRA(115)^CHRA(121)4CHR 
A(113):SYMBOL 39,24,24,48 
3220 LOCATE 14,3:PEN 3:PRINT CHRAd >BZ 
12 ) ^CHRA ( 122 ) KHRA (114) iCHRA (98 ) ^CH 
RA ( 120 ) iCHRA ( 108 ) iCHR A ( 118 ) KHRA ( 98 
)+CHRA(ll2)+CHRA(116)+CHRA(122)+CHR 


A(114) 

3230 PEN 1:L0CATE 29,2:PRINT CHRAd >U 
23)iCHRA(124)tCHRA(125)+CHRA(126)+C 
HfiA(127):L0CATE 29,3:PEN 3:PR1MT CH 
RA(255)+CHRA(129)+CHRA(130)+CHRA(13 
1)+CHRA(132)+CHRA(133) 

3240 PEN 1:LOCATE 3,2:PR INT CHRA(12 >GD 
3)+CHRA(124)+CHRA(125)iCHRA(126)+CH 
RA(127);L0CATE 3,3:PEN 3:PRINT CHRA 
(255)+CHRA(129)+CHEA(130)+CHRA(131) 
+CHRA(132)+CHRA(133) 

3250 PEN 2:LXATE 3,5:PR1NT*V0US ET >HL 
E UN SIMPLE PETIT SERPENT*:PEN 3:L0 
CATE 3,6:PRINT*EGARE DANS DES TABLE 
AUI POUR V0US*:PEN 1:LXATE 3,7:PRI 
NT*EN SORTIR QU’UNE CHOSE A FAIRE* 

3260 PEN 2:LOCATE 3,8:PRINT*RECUPER >QH 
ER TOUS LES COEURS TOUT EN*:PEN 3:L 
XATE 3,9:PRIMT*FAISAMT ATENTION AU 
MONSTRE ET":PEN 1:LXATE 3,10:PR1N 
T*A NE PAS VOUS MANGEZ LA QUEUE SOU 
S* 

3270 PEN 2:L0CATE 3,11:PRINT*PEINE >AB 
DE PERDRE UNE VIE*:PEN 3:L0CATE 3,1 
2:PRINT"CE JEU SE JOUE UNIQUEMENT A 
L’AIDE*:PEN 1:L0CATE 3.13:PRINT*DU 
JOYSTICK FIRE=SUSIDE* 

3280 PEN 3:LüaTE 3,14:PRINT*CE JEU >JN 
CONTIENT 5 TABLEAUX":PEN 2:LXATE 
3,15:PRINT*ET VOUS DISPOSEZ DE 4 VI 
ES*:PEN 1:L0CATE 5,17:PRINT*J’Al PL 
US RIEN A VOUS DIRE A PAR* 

3290 PEN 3:L0CATE 15,19:PRINT*B0NNE >GA 
CHANCE !*:PEN 2:L0CATE 9,21:PRINT* 
APPUYER SUR (ESPACE).* 

3300 IF IMKEY(47)-0 THEN RUN >«V 

3310 GOTO 3300 >HA 

3320 ’iiiiiiiitiiiiiiiiiiiiiiiiiiif >YA 


iiii 


3330 


TABLEAU Nq.5 


S.ft; ■; ’ >YB 


3340 ’iiiiiiiiiiiiiiiiiiiifiiiiiiii >YC 

iiii 


3350 DATA 3,3,3,6,207,10,3,3,1,207, >X 

13.3.3.4.207.18.3.3.7.207.3.4.3.1.2 
07,10,4,3,1,207,13,4,3,1,207,16,4,3 
,1,207,24,4,3,1,207.3,5,3,1,207,5,5 
,3,1,207,8,5,3,1,207,10,5,3,1,207,1 

3.5.3.1.207.16.5.3.1.207.18.5.3.5.2 
07,24,5,3,1,207 

3360 DATA 3,6,3,1,207,5,6,3,1,207,8 >TT 
,6,3,1,207,10,6,3,1,207,13,6,3,1,20 
7,16,6,3,1,207,22,6,3,1,207,24,6,3, 

1.207.3.7.3.1.207.5.7.3.1.207.8.7.3 


32 






, 1,207,10,7,3,1,207,13,7,3,1,207,16 

,7,3,1,207,22,7,3,1,207 

3370 DATA 3,8,3,1,207,5,8,3,1,207,8 >JK 

,8,3,1,207,10,8,3,1,207,13,8,3,1,20 

7.16.8.3.1.207.18.8.3.5.207.3.9.3.1 
,207,5,9,3,1,207,8,9,3,1,207,10,9,3 
,1,207,13,9,3,1,207,16,9,3,1,207,24 
,9,3,2,207 

3380 DATA 10,10,3,1,207,13,10,3,1,2 >DD 

07,16,10,3,1,207,16,10,3,1,207,18,1 

0,3,5,207,3,11,3,8,207,12,13,3,1,20 

7,14,13,3,6,207,11,14,3,2,207,14,14 

,3,2,207,19,14,3,1,207 

3390 DATA 10,15,3,3,207,14,15,3,2,2 >UQ 

07,6,16,3,7,207,15,16,3,4,207,10,17 

,3,3,207,18,17,3,2,207,3,18,3,1,207 

,11,18,3,2,207,14,18,3,2,207,18,18, 

3,2,207,21,18,3,4,207,3,19,3,2,207, 

12.19.3.1.207.15.19.3.4.207.21.19.3 
,1,207 

3400 DATA 4,20,3,2,207,21,20,3,1,20 >tfT 

7.5.21.3.2.207.21.21.3.1.207.2.22.3 
,20,207,2,2,2,1,228,14,4,2,1,228,6, 

5.2.1.228.15.6.2.1.228.21.6.2.1.228 
,7,8,2,1,228,14,9,2,1,228,20,9,2,1, 

228,13,14,2,1,228,16,15,2,1,228,13, 

18.2.1.228.13.23.2.1.228 

3410 DATA 6,4,1,1,224,11,5,1,1,224, )DT 

24.7.1.1.224.2.11.1.1.224.4.13.1.1, 
224,25,21,1,1,224,-1,0,0,0,0 

3420 '««tiiiitiiiitiiitifiiftitt*** >ÏB 

iii« 

3430 ’« TABLEAU No 6 >YC 

« 

3440 >YD 

ii«i 

3450 DATA 5,3,3,4,207,13,3,3,2,207, >BC 

17.3.3.2.207.20.3.3.5.207.4.4.3.2.2 
07,8,4,3,2,207,13,4,3,2,207.17,4,3, 

2,207,20,4,3,1,207,8,5,3,2,207,20,5 
,3,1,207,22,5,3,3,207 

3460 DATA 7,6,3,2,207,13,6,3,2,207, >LB 

17.6.3.2.207.20.6.3.1.207.22.6.3.1, 

207.24.6.3.1.207.6.7.3.2.207.13.7.3 
,2,207,17,7,3,2,207,20,7,3,1,207,24 
,7,3,1,207,16,8,3,2,207,20,8,3,5,20 
7 

3470 DATA 6,9,3,2,207,8,10,3,2,207, >RX 

12,10,3,2,207,17,10,3,8,207,9,11,3, 

4.207.18.11.3.3.207.23.11.3.2.207.3 
, 12,3,3,207,7,12,3,8,207,19,12,3,2, 

207,23,12,3,2,207 

3480 DATA 9,13,3,4,207,20,13,3,1,20 )ZV 

7.23.13.3.1.207.3.14.3.3.207.8.14.3 


, 2,207,12,14,3,2,207,5,17,3,1,207,1 

7,7,3,4,207,12,17,3,4,207,17,17,3,4 
,207,23,17,3,1,207,7,17,3,4,207 
3490 DATA 5,18,3,1,207,7,18,3,1,207 >ZT 
, 10,18,3,1,207,12,18, o, 1,207,15,18, 

3.1.207.17.18.3.1.207.20.18.3.1.207 
,23,18,3,1,207,19,7,3,1,128,5,19,3, 
1,207,7,19,3,4,207,12,19,3,4,207,17 
,19,3,4,207,23,19,3,1,207 

3500 DATA 5,20,3,1,207,10,20,3,1,20 >PY 
7,12,20,3,4,207,20,20,3,1,207,23,20 
,3,1,207,5,21,3,1,207,10,21,3,1,207 
,12,21,3,1,207,15,21,3,1,207,20,21, 

3.1.207.5.22.3.1.207.7.22.3.4.207.1 

2,22,3,4,207,17,22,3,4,207,23,22,3, 

1.207 

3510 DATA 13,2,2,1,228,21,2,2,1,228 >BY 
,6,4,2,1,228,23,4,2,1,228,17,5,2,1, 

228,23,6,2,1,228,16,7,2,1,228,10,10 
,2,1,228,11,10,2,1,228,10,14,2,1,22 
8,11,14,2,1,228,7,20,2,1,228,17,20, 

2,1,228 

3520 DATA 6,6,1,1,224,11,5,1,1,224, >D« 

20.9.1.1.224.3.19.1.1.224.16.15.1.1 
,224,23,15,1,1,224,13,23,1,1,224,-1 
, 0 , 0 , 0,0 

3530 >YD 

lli« 

3540 ’i GAGNE >YE 

t 

3550 ’iiiiKtiiiiiffitiiiiiKiiiiv» >YF 

iii« 

3560 MODE 1:REST0BE 3580 >TE 

3570 READ A,0,PN,L,C:IF A=-l THEN 3 >«T 
630 ELSE LOCATE A,0:PEN PN:PRIHT ST 
RING$(L,C):G0T0 3570 
3580 DATA 1,2,1,4,143,6,2,1,4,143,1 >JE 

1.2.1.4.143.16.2.1.1.143.19.2.1.1.1 

43.21.2.1.4.143 

! 3590 DATA 2,3,1,1,143,4,3,1,1,143,6 >VY 
j ,3,1,1,143,9,3,1,1,143,11,3,1,1,143 
,14,3,1,1,143,16,3,1,1,143,19,3,1,1 
,143,21,3,1,1,143,24,3,1,1,143 
3600 DATA 2,4,2,3,143,6,4,2,4,143,1 >DL 

1.4.2.4.143.16.4.2.1.143.19.4.2.1.1 

43.21.4.2.1.143.24.4.2.1.143 

3610 DATA 2,5,2,1,143,4,5,2,1,143,6 >VT 
,5,2,1,143,8,5,2,1,143,11,5,2,1,143 
,14,5,2,1,143,16,5,2,4,143,21,5,2,1 
,143,24,5,2,1,143 

3620 DATA 1,6,3,4,143,6,6,3,1,143,8 >CG 
,6,3,1,143,11,6,3,1,143,14,6,3,1,14 
, 3,17,6,3,2,143,21,6,3,4,143 


3630 DATA 26,5,1,12,176,28,4,3,1,16 >EK 

8,29,4,3,1,169,30,4,3,1,170,31,4,3, 

1,171,32,4,3,1,172,33,4,3,1,173,33, 

3,3,1,174,34,3,3,1,175 

3640 DATA 22,10,1,4,143,27,10,1,4,1 >QA 

43.32.10.1.3.143 

3650 DATA 22,11,1,1,143,27,11,1,1,1 >AR 

43.30.11.1.1.143.32.11.1.1.143.34.1 

1.1.2.143 

3660 DATA 22,12,2,3,143,27,12,2,1,1 >AF 

43.30.12.2.1.143.32.12.2.1.143.35.1 

2.2.1.143 

3670 DATA 22,13,2,1,143,27,13,2,1,1 >AK 

43.30.13.2.1.143.32.13.2.1.143.34.1 

3.2.2.143 

3680 DATA 22,14,3,4,143,27,14,3,1,1 )GL 

43.30.14.3.1.143.32.14.3.3.143 

3690 DATA 6,11,1,1,34,7,11,1,1,35,6 )QQ 

,12,1,1,36,7,12,1,1,37,31,7,1,1,34, 

32,7,1,1,35,31,8,1,1,36,32,8,1,1,37 

3700 DATA 13,13,1,1,34,14,13,1,1,35 >NG 

, 13,14,1,1,36,14,14,1,1,37,35,3,2,1 

,47,33,2,2,1,38,34,2,2,1,39,35,2,2, 

1,40,36,2,2,1,41,37,2,2,1,42,-1,0,0 


, 0,0 

3710 F4=* . . PRESSEZ (ESPACE) POUR >VH 
REJOUER . . • 

3720 L0=1:PEN 1 >YE 

3730 LOCATE 1,25:PR INT LEFT$(F$,60) >CJ 
3740 F$=RIGHT4(F»,LEN(F$)-1)+LEFT$( >GH 
F4,l) 

3750 IF INKEY$=* * THEN RUN >VB 

3760 GOTO 3720 >NF 

3770 >YK 

ifi« 

3780 'I MUSIC >ZA 

« 

3790 >ZB 

fi«« 

3795 RESTORE 3820 >HE 


3800 READ a,b:IF a=99 THEN RETURN >AX 
3810 ENV 1,100,-1,9:S0UND l,a,bi7,l >PN 
5,1:GOTO 3800 

3820 DATA 95,8,63,4,47,2,53,4,56,2, >HV 

53,2,56,2,71,2,84,2,71,2,63,2,84,4, 

71.2.53.2.56.2.71.2.63.4.84.2.84.2, 

95.2.95.2.71.2.53.2.56.2.63.2.71.2, 

56.4.95.2.80.2.63.2.71.2.80.2.71.2 
3830 DATA 80,4,84,4,71,2,63,2,53,2, >QY 

56.2.84.2.47.2.84.2.53.2.56.2.95.2, 

53.2.47.2.53.2.56.2 

3840 DATA 63,2,71,2,80,2,71,2,80,2, >UY 

84,2,80,2,71,2,63,2,53,2,56,6,0,0,9 

9,99 
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EDUCATIFS : 

2 NOUVEAUTES 
INDISPENSABLES ! 


f our 
twelve 


^L^0UV6BU i 


► t » IX vow» 1 s. ÆTc''^ ■:. ÿ J 
_ __ to^’-eouni 

^"■■’* W?*k tli#r* 

ar« ..^ A«mifis. :..-'^‘J 

. THmr• »r . .' «•nt*no*s her • • 'fl 


SCIENCES PRIMAIRES 


L'homme - Niveau primaire 


ANGLAIS - PRIMAIRE 


Niveau primaire et débutant 


- Les sens 

- Les OS 

- Les muscles 

- La digestion 

- Les dents 



LA DICESTIOM 


Nixn de l'or^'Ane ! 
corresÿ^ondAnt <MAJf> \ 


- La respiration 

- La circulation 

Consultation et interrogation avec schémas et graphiques. 


Ce logiciel est destiné aux élèves des classes primaires 
et début sixième et devrait leur permettre d'apprendre 
les premiers mots de vocabulaire et les premières notions 
de conjugaison anglaise. 

- DICTIONNAIRE (6 thèmes) 

Couleurs, nombres, animaux, vêtements, corps, divers. 

- PHRASES à compléter (6 thèmes). 

- TEXTES 

• Histoires à ranger dans l'ordre chronologique. 

• Possibilité d'en créer. 

- CONJUGAISON 

Au présent simple de 7 verbes courants. 

Options Consultation et Interrogation. 

Nombreux dessins et graphiques. 


Réf. : MC 98 CPC 


200 F 


Réf. : MC 99 CPC _ 200 F 











A PARTIR DE 10 ANS: 

Hamsters en Folie est une simulation économique et 
humoristique qui vous entraîne dans les mystères de la 
gestion d'un élevage de hamsters. 

A vous d'accoupler vos animaux, de vendre des 
hamsters, d'acheter de la nourriture, des cages, des 
magasins, de payer vos loyers et de faire face à toutes 

les dépenses... _ _ 

Deux niveaux de difficulté. / 

Sauvegarde possible du jeu en cours. I 


naiirr 


Disponible sur disquette 3" pour CPC 464, 664 et 
6128 au prix de : 225 F. 

Réf. : G5 007 CPC 


HAMSTERS 1 


[ 1 

FPl 


^JENERATION^ 



































numéfü 


SÛMCflÊ/ 


COMPIL 

S à 8 


COMPIL 

I 6 4 


80 F 


BON DE 
COMMANDE 
PAGE 38 

fV^r^r^r^r^r^ 


Vous recherchez les anciens numéros de CPC ? 

Vous souhaitez connaître le mode d'emploi de cer¬ 
tains logiciels du téléchargement ? 

Alors voici les compilations des numéros 1 à 4 et 
5 à 8 de CPC. 


POUR FAIRE RIMER 


RECREATION 


EDUCATION 


ET 


MULTICOURS UN CHOIX DE 3 EDUCATIFS + 1 JEU 


* ïÿ- 




\l "'.'fi 


f. 


Français : maîtrise de la lecture avec 
le support d'un texte riche et une va¬ 
riété d’exercices de compréhension 
d'analyse et de logique. 

Sciences naturelles : découverte 
de la Terre et de son histoire à tra¬ 
vers les g^-ands phénomènes géolo¬ 
giques abordés grâce à des textes de connaissance, des animations... 
Géographie : tout sur l'Europe, ses états, ses institutions, ses réussites, ses 
alliances : le mode d'emploi pour 1992. 

Jeu : 1 jeu divertissant à découvrir. Réf. GU 557104 


245,00 F 


MUrfïCOURS 


Français : test de performance de 
lecture suivie, qualité de compréhen¬ 
sion, appréciation du sens et du style 
grâce à une pédagogie active. 

Sciences naturelles : une initiation 
à la biologie humaine apprenant à 
observer et a interpréter les compor¬ 
tements de notre corps. 

Céogpraphie : analyse de cartes et interprétation de diverses données statis¬ 
tiques pour une étude de la France de 1989 : régions, villes, institutions, vie 
économique industrielle. 

Jeu : 1 jeu divertissant à découvrir. - 

Réf. :0\) 557124 


Français : amélioration de la vitesse de lecture et de la compréhension du 
texte autour d'exercices variés et amusants. 

Sciences naturelles : une initiation à la démarche scientifique et aux lois 
biologiques du monde vivant abordée avec des mots simples. 

Céog;raphie : découverte de la variété des milieux naturels et initiation à 
l'interprétation de cartes, graphiques et autres données climatiques. 

Jeu : un jeu divertissant à découvrir. 

Réf. : GU 557064 ■'ZiWiim 


Français : perfectionnement de la 
lecture regroupant lecture et recher¬ 
che, amticipation mais aussi interpré¬ 
tation. 

M Sciences naturelles : initiation à la 
biologie animale et végétale à travers 
l'alimentation’, le système de respira- 
tion, le mode de reproduction ou de locomotion. 

Géographie : Voyage sur 2 continents proposant une découverte du quoti¬ 
dien, des forces et faiblesses de l'Amérique latine et de l'Afrique^ 

Jeu : 1 jeu divertissant à découvrir. Réf ..' GU 557084 




SORACOM 
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VOCABULAIRE CM 


- ptacer des mots 
-placer des mots 
-homofTymes 
-homonymes 
-syrxxtymes 
-oonraires 

- racine des mots 
-sens expressions 
-dérivés 

- placer des mots 

- radne des mots 
-adverbes 
-conrairee 
-synonymes 


homor^es 

conraires 


pendu 

pendu 

placer des mots 
placer des mots 
placer des mots 
conlaires 
synonymes 
conraires 
placer des mots 
placer des mots 
placer des mots 
placer des mots 
placer des mots 
placer des mots 


synonymes 

sens prop.liguré 

prétixes 

suffixes 

bmiles 

suffixes 

verbes/noms 

adjectifs 

adverbes 

noms de métiers 

adjecifs/vsrbes 

paronymes 

placer des mots 

placer des mots 


ORTHOGRAPHE 6*-5* 


- a ou à : on ou ont 
-oitou ats 

- préoem <>o t'indicalf 

-vvrbMonaMrouflw 

- piuntl «n Mux ou aui 
-pau. pou*, peut 

- impertut (ta nrxicafif 

- va^taaan oar, gar, guaf 

- »n ou aom 

- prêt. piet. pré 
-oa. Gâte, oat 
-paaaéœmpoié 
-l^ia.l’ii.lè 
-oux, oue 

- l'ait c'ait, mm 

- imwtMi 

- puié amptada rndKurtif 

-lai prêt xaa 


-iux, au.aui 
-aooorddu viftM 

- lutur da l'indioatf 
-tout, tout, euet 
-format duparlpai. 

- m aTmi | m'ontrmon 
-«nddioa prêtant 
-méma 

- met, mat, m'att 
-laur, lauri 
-impénrtf prêta nt 
-éouar ;ttoui 
-piuetoupiultdt 
-latnombwt 
-Kit|onctfp4«m 


-a ou ;ni ou n'y 
-quaiouqutiliti 
-eroiratêtm 
-dant d’an, dant 
-forma pawva 

- üne. l’an, lant 
-fiA/aménaur 
-nom ouvarba 
-quexfouqu'an 

- parte pa pané 


CONJUGAISON 


- empt dainrtMt 

-préaanty. nar 
-préaarrtv. eroif 
-préaantv.étia 

- réveon prénnt 
-emploi ilialai 
-iitrv.etar 
-fué/v. ivor 

v.éfra 

-réveion futur 
-panée v.tn ar 
-panéev. avoir 
-panée V. être 
-lévwon panée 
-allar(3emp^ 
-fera(3empa) 
-prendra (3 empt) 
-nrir (3 lampij 


ORTHOGRAPHE 4*-3* 


- imparfait, indlc. 
-on-on n‘ 

• imparfait indic. 

• accord p. passé 
-prés. V. irrégul. 

- ses/ces/c'-s'eet 
-passé simple ind. 

- adj. de couleur 

- imp. ou pass. s. 

- verte ou p. passé 
-imparf./pess. s. 
-accord nu-demi 

- bur antérieur 
-quelque quoique 

- passé antérieur 

- accord p. passé 


-passé antérieur 
-^sl&é/et 

- impératif prés, 
-é/^é 

- impéraiff prés. 

- pronoms retaits 

- ...oir ...sur etc. 

- V. en cer-ger 

- former les adv. 

- p. présent/adj. v. 

- accord tout même 
-voie passive 
-quel(s)/qu'elle 
-cond. présent 


- accord p. passé 
-cond. présent 
-terminaison mots 

- cond. passé 

- piur. noms comp. 

- cond. passé 

- terminaison mots 

- verbe asseoir 

- accord p. passé 
-sutj. présent 
-motsen ...lé ...lé 

- subj. imparfait 

- masc. ou féminin 

- V. particuliers 


LES 4 OPERATIONS 


MATHEMATIQUES CM 


- éern ir nomb. «n cfvf 

- déomsux ; éo., compsr. 

- rangamant des déci¬ 

-nomb préc., a/ivopt 

- fracsons 

maux 

- 'ingonnort rximb. #nt 

-calcul mantal 3 

- plaoar in nombre 1 

-oécompoirtion 

- anesdramant des déc 

- plaoar un nombre 2 

- cnifir* btt dizairiM 

- masura da tsmpa 

-ancadr. daadéomaux 

- «ommo b« 3 nombroo 

-écrituiadaaansars 

- barrer les aéros mut- 

-rémon 1 

- las puissanots 

las 

-•om. b*4, Si 6. 7nomb 

-déoomposrSon 1 

- réveon 2 

- ■outtmcbon (propiélét) 

-déoompovSon 2 

- mesurai de longueur 

-Câtaül m*nté 1 

-rangement 

- rriaaurai de miMas 

- écnrt grands norrtbrw 

- placer un nombre 

- maauraa da capaoléa 

-rénsion 2 

-rértton 1 

-monnaie 

- mMum d* longueur 

- fractons ; équnralanosf 

-laaaraa 

-muftpiic (propriélét) 

- fracsont at déomaux 

- volumas et aptetét 

-calcul mante 2 

-muiepl. par 10,100,1000 

durée 

- muitolM «t dvi saurs 

- déoompos/Son des déc. 



-qu Géant atraan 
- mamai da mina 

-r^nnon 3 


- nuitrac CE1 nivaau 2 

- louitrac CE2 mvaau 1 

- nuiirac CE2 nvaau 2 
-aoutirac CMI mvaau 1 

- nuHrac CMt mvaau 2 

- nuitrac CM2 mvaau 1 

- nuilrac CM2 mvaau 2 

- tat>ë da multiple par 2 

- tapit da m ultiplic par 3 

- tabla da multiple par4 

- tabla damultpie parS 

- tabla damultple par 6 

- tabla da multiple par 7 

- tabla da m liépie par 6 

- tabla da multpie par 9 
-muBiplt CE1 nivaau 1 


- lévnon : diar, fa»a... 
-varbaianr 3ltmpa 
-voirpiampa) 
-impartetv.anar 

- aooord p. p. éta 
-imparfartv.anir 
-impadMdman 

- imparfait dnrtri 

- réiaeon impart 

- impératif prénnt 

- impératif prêtant 

- impératf préaant 

- tormar partapa paaaé 

- nj. paréouier 

- préaant ind. 

-futur ind. 


-imparfait nd. 

- paaaé ampli ar-ir 
-paaaé ample 
-paaaé ample 
-pané oompoaé 

- plua-qua-partut 
-impératif p rêta n t 
-nt)onéc p rénnt 
-œnd. prén n t 
-auttonctfp4nrTt 
-vartataanyararuar 
-varbaaanoargr 


- tabla d'additon da 2 

- table d'additon da 3 

- table d'adOiton de 4 

- tabla d'addiion de 5 
-tabled’additon da 6 
-tablad’additon de 7 
-tabla d'additon da S 

- tabla d'additon da 9 

- adOfion CP mvnu 1 

- addiéon CP mvnu 2 
-addiéon CEI nivaau 1 
-addiéon CEI nivaau 2 

- addiéon CE 2 nivaau 1 
-addiéon C£2nivan 2 
-additton CM1 nivaau 1 
-additon CMt nivaau 2 

- addition CM2 mvaau 1 


-multpie CEI nvnu 2 
-muittpfe CE2 nivaau 1 
-multpie CE2nivnu2 
-miXtpe CMt mvnu t 
-multpie CMI mvnu2 

- multpie CM2 mvnu 1 

- mutple CM2 mvnu 2 
-dviaion CE 2 mvaau 1 
-divaion CMI mvaau 1 
-diviaion CMI mvaau 2 
-dvition CMI nivaau 3 
-dviaion CM2 nivaau 1 

- dvition CM 2 nivaau 2 
-divwion CM2 nivaau 3 




180 F 

la disquette 3 


pour ^ 
464/664/6128 


pour 


eussir en français et en mathématiques 


8 disquettes bien remplies : 2000 questions - 50 exercices 


pour trouver tout seul 


SERGE 


5* essai page 1 


Complété par ce ou se 


marchand 

rendre 

reposer 

repos 

presser 

nourrir 

fauMer 


tMl-aattU .. sa 


- Elaborés par une équipe d'enseignants et d’informaticiens. 

- Testés dans de nombreuses écoles de Loire-Atlantique (lire CPC n° 
35-Juin 1988). 

- L’expérience montre qu’après 15 à 30 heures de travail la plupart 
des élèves font dans leurs dictées moins de 10 % d’erreurs sur l’en¬ 
semble des règles de la disquette. 

1 ) En cas d’erreur, l’ordinateur pose des questions qui aident à trouver 
la bonne réponse. Sa méthode fait appel au raisonnement plus qu'à la 
mémoire. 

2) L’ordinateur chronomètre le temps de réponse. Si ce temps est 
supérieur au temps normal l’ordinateur l’avertit que s’il ne répond pas 
plus vite il continuera à faire des fautes dans ses dictées. 

3) Les résultats sont enregistrés pour encourager l’élève. Il peut voir 
que plus il travaille, plus le nombre de règles acquises augmente. 


pour donner le moral 


RESULTATS orthographe C^^ 
nombre de 'egies ACQUISES 
2(>j-^- a 

16 + l( 


SERGE 

Pourcentage d erreurs 


temps de travail en np,ires 

Voit eieve suivant taoe/ sur | eipve precedent tape/ f 
pour vnir le:, résultats pa’ repie tape/ Sur ENTER 


ORTHOGRAPHE CM 


-Sou SS 
-ou-où 

-gou gu-cou qu 
-avoir au prôs«nl 
-aou à 
-on ou ont 
-son ou sont 
-ètreaupréeont 

- féminin des noms 
-066 ou 866 

- préeent 86 llndl c. 
-06 ou 86 

- la, là, l'a, l’as 

- imparfait d6 lindic. 

- quand ou qu'en 

- tant, fen, tempe 


-ce, cet, cette, cee 
-éouer 

- leur ou leurs 
-sait, sais, c'est 
-peu, peux, peut 
-prés, prêt, pré 

- accord du verbe 

- sans, s'en, sens 

- mais, mes, met 

- participe passé en j 
-partie, passé adjectif 
-quel.qu'ele 

■ impératif présent 

■ part, passé étre-avoir 


- partie, passé avec 
être 

-parbe. passé avec 
avoir 

-si. d, s’y 

- tout tous, toute 
-passés. 1er,2egr. 
-passés. 3e gr. 

- condifon. présent 
-conditp. verbe en 
eier 

-oondl. p. verte en 
eysr 


ORTHOGRAPHE CE 


-VouF 

- ou, oup, oue, out 
■ eux, eu, au, eau 
-in, ain.im 

-i, is. y, lle.i 
-an, en, ant am 

- e. é. é, ei 

-c, que. ck:S. SS.C 

•m,n 

•S. SS 

•a. à 

•on, ont 

■son, sont 

'q.qu.j.g 

•F.FF.ph 

■ion, oin 


-ou, où 
-pluriel noms 

- accord du verbe 
-l,ils, elles 
-préeent 

- présent avoir, être 

- près, faire, voir 
■passé composé 

- ar, ra ; or, ro 
-eu, eux, eut eue 
■on. om, ont ond 
■é.ôe.er 
-l.ille 

■ les possessite 
■ces,se8 
•cet cette 


-CiÇ 

-accord des adjectifs 

- féminin en e 

- féminin des noms 
-nomsen ie, erie 
-pluriei des noms en al 
-pluriel des noms en ou 

- tout, tous, toute 
-leur, leurs 
-impératif 

- impératif avoir, être 
-imparfait 

- futor être, avoir 


•MOod CM2 nivbtu 2 
■OdStrbc CE1 nvwu 1 





































FRANÇAiS-CM. NIVEAU CMI 
CM2 SIXIEME. 


MATHS~3. ALGEBRE 
POUR U CLASSE DE 3EME 


EDUC-MATERNELLE-I 

NiVEAU4à6ANS. 


EQUATIONS. ALGEBRE POUR LES 
CLASSES DE 3EME ET 2NDE. 


EDUC-IIATERNELLE-2. NIVEAU 
MATERNELLE CP. 


GEOGRAPHIE-PRIMAIRE. NIVEAU 
PRIMAIRE. 


MATHS SECOND CYCLE-2. 
ALGEBRE POUR LES CLASSES DE 
SECONDES A TERMINALES. 


GEOMETRIE PLANE. NIVEAU 4EME 
ATERMINALE 


ESPACES ET SOLIDES. NIVEAU PREMIERE 
ET TERMINALE. 


MATHS-54. ALGEBRE ; 
POUR LES CLASSES DE SEME ET'4EME 


fr pe/MA/es 


MCÜifïCFCâiskSOdl 


Mc:;Q53CPC:aii*2Ci<ï:i 


1 - Dictée : cette option permet à un instituteur ou à un porent de 
dicter un texte o l'élève ovec correction outomotique oprès une 
ou deux foules sur choque lettre (ou choix) et ovec comptage des 
foutes. 

Un fichier niveou CMl CM2 de 20 dictées est fourni ovec ce lo¬ 
giciel mois une option de création permet de créer des dictées 
de tout niveou. 

Une option lecture permet égolement de lire les textes de ce fi¬ 
chier. 

2 - Porticipes possés ovec ETRE et AVOIR : Cette option permet 
d'apprendre à accorder les porticipes passés avec les verbes 
ETRE el/ou AVOIR avec sujet, complément d'objet direct ou indi¬ 
rect, mosculin ou féminin, singulier ou pluriel. 

A choque foule, une explication du corrigé sero visuolisée. 

Un fichier de phrases est égolement fourni, oinsi qu'une option 
permenoni lo création de ses propres fichiers d'exercices. 

3 - Conjugoison : ce module permet à l'élève d'opprendre à 
conjuguer les verbes des 3 groupes oux temps de son choix (im- 
portail, futur antérieur, présent...) sous lo forme de phroses à 
compléter. 

A choque foute, une explication sera visualisée et le comptage 
de points apporortro à lo fin de l'exercice. 


- Constructions de vecteurs - Colculs sur les droites - Systèmes 
linéaires 2,2 - Réqionnemeni du plan • Calculs sur les racines 
carrées - Notions de trigononrétrie. 


MC15CPCdlSk20a:l 


Logiciel or e''*e s-r c sso 

des nomo'es 


M!S;;Q6Pf?£;;{l)M2C!Cii 


Mc:205iCRCSRiïm:i 


- Appre"t sscge oes «••'es 3e o onaPet ovec image associée à 
choaue e'''e Aoo e^ ssoge ces nombres de 1 à 9. 


- Equations du second degré avec interprétation grophique - Sys¬ 
tème linéaires 2.2 - Systèmes linéaires o n équations p inconnues 
(n,n<8) 


MCiecPCdisK'MOl 


- Reçois* ,e' ces se- es d'imoges. - Reconstituer des 
mo’s - îeccrs je oes se' es de nombres de 1 à 6. 


MC 250:1 




LV'c'" e»e-ce sor eso^' c ono>se et découvre les règles qui 
rég for-' ses O'e'” e s ■yso'v" sscges comme l'organisation du iro- 
vo ec' S- ."e ooçe e se"s de ta lecture et de l'écriture, le re 
tour CO 3 *e 


- Equotions du second degré ovec interprétation graphique - Courbe 
Y - f(X) avec choix du repère et des unités - Intégrales par la mé¬ 
thode des rectangles ovec interprétation graphique et exercices 

- Suites récurrentes ovec graphisme - Fonctions réciproques 


MC:aa:CRCdisl(;200J 


Cours et exercices suivant niveou : 

Le Soleil - La Terre - Les points cordinoux - Les soisons - Le relief 

- Les cours d'eau et les rners en Fronce - Les ports en France 

- Les grondes villes - Les poys frontaliers. 


MC 01 CPC di8lt200:lf 
UC 210 CPC MÜii 


ve.rs ooints d'exercices de niveau cours 


Ce log c e c ûc*: 
éléme'^ta ’e 




MC iKibRCâisk;»»! 


- Ronge' ces * >-c-ei e" O'd'e croissont et décroissant - Corrv 
porer oes s.-ce-'e.* n'èneur) sommes produits - Comp¬ 

ter pos 0 ocs ^ C. 20, 40 ..) - Calculs sur les opéra¬ 
tions èle'">e" c « cc-ec. ce oooDie entrée) - Compter la mon- 
noie - i-i'e e c" :*e *e.-e - Dépiocer une tortue (exécuter et 

retrouve') - S.""*- - es dces 


- Images par opplicotion affine - Courbes avec options (dont 
hordcopy) - Courbes superposées - Courbes définies par mor¬ 
ceaux - Familles de courbes - Courbes plones (cinémotique) 

- Courbes définies por une intégrale 


Logiciel oemnettant de familiariser les tous jeunes lecteurs à la re¬ 
constitution, la compréhension et lo structure d'une phrose. 


N(\/£Aùl 

S£eOIVDA/Re 


MC 02 CPC dl$ k250.g 
MC 200 CPC IW2li 


MCt^CRCdlifsmi 


Deux logiciels occompagnés d'explications détaillées ; 

- Un utilitaire de dessin géométrique pour trocer points, droites, 
segments et cercles, le clossique «TRACER à lo règle et ou com¬ 
pas* accompogné de commentaires et de tous les résultats de 
géométrie analytique. Une figure peut être sauvegardée ou impri¬ 
mée. 

Huit exemples clossiques de constructions géométriques occom 
pognent cet utilitaire (bissectrices, tangentes...). 

- Une étude por le dessin des TRANSFORMATIONS GEOME¬ 
TRIQUES (tronslaiions, homothétie, rotation, symétrie oxiole et cen¬ 
trale, similitude) sur des figures simples (corré, triangle, bsange...). 


Ce log ce oes mcc^es sur les calculs (opérotions, 

frodiors o. c 3«c--«i*e j »-te" es sur'epère orthonormé ovec 
possiD e oe zr 3c *g-'es...) - Opérotion.s veriicoles 

sur des e" e s r-ec •■e-.te - ooa Mon - soustroction - multipli¬ 
cation C'V s O' 

- Froc'ions s -oes 

- sur oes OC'* es oe k. de comemberts - fractions équi- 

volenres - '■«-e-oe*. s r .'e "oc’ on . 

- Colcus d c es 

- cdrrè 'ecd'çe r-ec e»o- co'-on des formules en cos d'er- 
reu' 

- Coic.iS de c..-* 

- Svme • e ce* “de e 3* de 

- S- es o'coy *e es 

- •’o«-'ce' ogei 




Ce logiciel troite des notions de fonctions et nature des groupes 
de mois constituont b phrase (sujet, verbe, complément...). 

- Aporentissoge ovec roppel de cours adopté à choque situotion 

- Révision générole 

Les 220 pnroses contenues dons ce logidel sont réparties en 
2 niveaux e couvrent plus de 1400 questions. Au niveau 1, l'uti¬ 
lisateur peut commencer en CM2. 


MCiaOiPRCiiilçM 


MC;03:.!C:Reil8k;2<Wi 


MC 12 CPC disk 200 F: 
MC 208 CPC K7170 F 


Dessin géométrique dons l'espoce : Utilitoire de dessin pour tro¬ 
cer points, droites, segments et plans accompagnés de commen¬ 
taires éventuels avec possibilité de sauvegarde et d'impression. 
La partie importonle est lo perspective choisie - Lo perspective 
«fil de fer* qui permet de refaire le trocé sous des ongles diffé¬ 
rents - La perspective ovec les plans colorés qui donne une meilleure 
visuolisotlon. 

Une représentation de SOLIDES dons l'espoce avec : Entrée du 
solide de votre choix - Impression de fichiers de données - Choix 
des ongles de perspectives - Des exemples de solides (solides 
de PLATON, étoile de KLEPER...) 


MCattsCRCKiJKIl 


- Opérotions -f - X / - Froctioris - Colculs d'aires - Cabuls sur 
les relotifs - Pourcentages avec gfophisrrtes - Suites proportion¬ 
nelles avec graphisme - Symétries orthogonales. 


1 - Compléter des mots ovec es sons svaoes qui convien¬ 
nent ovec choix entre aeux sors esse—oc-'s 


2 - Comoléter des phroses ovec oes -os o c’os r dons des 
sénés oe 'néme consononce 


3 - Sétec? onner dons des phrases es '^'css ovc''’ es sons indi¬ 
qués 

Une sene oe sons ovec niveou de difficulté c'oç'ess • oejveni 
convenir 0 -* è'èvtes des classes de CP pou' oc' or e aux 
élites oe CE CE2 pour les options 2 et 3. 


|yta2llCRCrii8l(:20Qi 

iiiiiiiMii 


MC»t4:CRG:(jisk2Ûril 


Fractions - Nombres relatifs - Volumes - Echelles et vtfesses 
Angles - Symétries centroles 


Ce logiciel comprend une portie Questionnaire d choix multiples 
et une partie liste de vocabulaire. 

Q.C.M. 

Permet de tester ses connaissances 

- 3 fichiers de culture générole 

- 1 fichier sur lo Révolution fronçoise 

- 1 fichier sur lo longue ongloise 
VOCALIST 

Permet de tester ses connaissances sur les langues 

- 3 fichiers ANGLAIS-FRANÇAIS 

Il est possible de créer ses propres Q.C.M. sur tous sujets ainsi 
que ses propres VOCALIST sur les longues. 


MC ii;;CRCrtllJi2Q(ïl 


Ce logta e oe—e- o ooorendre les règles principales de l'onrio- 
gropne e" connoteo"’ oes phrases (19 règles ex : à ou o, on ou 
ont...) 


:MC:{i4:;CM20QJ 


- Multiples et diviseurs d'un entier - Nombres premiers - Puis- 
sonces d'un entier naturel - Décomposition d'un entier naturel 

- P.G.C.D. et P.P.C M. - Calculs olgébriques 

- Rotionnels (simplificotions et opérotions de froctions) - Equo¬ 
tions et inéquations dons R 


A criOQje e*cy-cofion est donnée à l'élève sous la 

forme 0 cr œ e—oocement qui lui permettra de corrv 

prenore scr re-. * ckj -loment, cette règle pourro être offi¬ 
ce DO». ■ r 


SORACOM 





























































































































































s ON DE (SOMMANDE 


A expédier à : Editions SORACOM 
La Haïe de Pan - 35170 BRUZ 


D£SIGKA11C»« 


PÀt ünitaira 


ûuart«t$ 




Pour chaque article, entourez le ou les choisis. 
ANCIENS Nos AMSTAR & CPC 

N° 26 - 27 - 28 - 29 - 30 - 31 - 32 - 33 - 34 
35-36-37-38-39-40-41 


25 F funité) 

26 F lunité) 


Franco 

Franco 


DISQUEHES AMSTAR & CPC 

N° 20 - 21 - 22 - 23 - 24 - 25 - 26 - 27 

(une disquette réunit 2 numéros consécutifs d'Amstor & CPC) 


Abonné 
Non abonné 


110F (unité) 
140 F (unité) 


Franco 

Franco 


ANCIENS Nos AMSTAR 

N°5-6-8-9-10-11 
12-13-14-15 
16-17-18-19-20 -21 
22-23-24-25 


15 F (unité) 
18F (unité) 
20 F (unité) 
22 F (unité) 


Franco 

Franco 

Franco 

Franco 


DISQUEHES AMSTAR 

N° 1 (du n° 1 ou 8 inclus) - N° 2 (du n° 9 ou 16 inclus) 
N° 3 (du n° 17 au 25 inclus) 

ANCIENS Nos CPC 

N° 10 - 11 - 13 - 16 - 18 - 23 - 24 - 25 - 26 
27-28-29-30-31 -32-34-36-37 


110F (unité) 


Franco 


25 F (unité) 


Franco 


ANCIENS Nos HORS-SERIE CPC 

N° 4-6-8-9-10-11-12-13 -14-15 -16 
N° 17-18-19 


15F (unité) 
17F (unité) 


Franco 


DISQUEHES CPC ET DISQUEHES HORS-SERIE CPC 

N° 1-2-3-4-5-6-7-8-9-10-11-12-13 -14-15-16-17 
18-19 (une disquette réunit 2 numéros consécutifs de CPC) Abonné 
HSl - HS2 - HS3 - HS4 - HS5 - H$6 - HS7 - HS8 - HS9 - HSl 0 - HSl 1 
HSl 2 - HS 13 - HS 14 - HS 15 - HSl 6 - HSl 7 - HSl 8 - HSl 9 Non abonné 


110F (unité) 


ABONNEMENT 6 DISQUEHES (non rétroacHf) 

Téléchargement AMSTRAD CPC 


140 F (unité) 

600 F 


Franco 


DISQUEHES ^^ARCADES'' 

Câble pour téléchargement 


60 F 
89 F 


5 F 
5F 


LOGICIELS EDUCATIFS - UVRES - DIVERS 


bÉSMWOi 


REFERENCE 


Forfait port +10 F par logiciel et 10 % pour livres 




Pour tout envoi par avion : pour DOM-TOM et étranger 
. supplément forfaitaire de 10 % par article 


□ Faculiarif : recommandé •f 10 F par commande 

MONTANT GLOBAL 


10F 


Je joins mon règlement : □ chèque bancaire □ chèque postal □ mandat 



PAYEZ PAR CARTE BANCAIRE 

L1 I I I I I I I I I I 


I I I 


Date d'expiration 


1 


1 


Signature 


(inscrire les numéros de la carte, la date et signer) 


Date 


Signature 


O 

CN 


OO 

X 


Nom: 


Prénom : 


Adresse : 


Code Postal : 


Ville : 


ECRIRE EN MAJUSCULES 


Afin de faciliter le traitement des commandes, nous remercions notre aimable clien¬ 
tèle de ne pas agrafer les chèques, et de ne rien inscrire au dos. 


38^ 


Commênde : La commande doit comporter tous les renseignements demandée sur le bon de commande (désignation ou réiérenoe si ceile-d existe). Toute absence de précisions est sous la reeponsafaiité de tacheteur La vente es 
condue dès acceptai on du bon de commande par notre société, sur les articles disponbies uniquem snt. 

Uf ; Les prix intiqués sont valables du Jour de la parution du catalogue ^squ'au mois «ivant ou au Jour de parution du nouveau catalogue, sauf erreur dans le Ibelé de nos tarifs au moment de la fabricalon du catalogue et de 
variation de prix Impatante des fournisseurs. ^ ' 

Uvrwiêon : La livraison Intendent après le régiemenl Lee délais de liwalson étant de 10 à 15 Jours sn\dron, SORACOM ne pourra être tenue pour resporrsabie des retarde due aux tiansporteurs ou aux grèves des services postasix. 
T/»/niport marchandise voyage aux risques et périls Ai destinataire. La livraison se faisant par cols postal ou par transporteur. Les prix indiqués su le bon de commande sont valabiee sur toute la France métropof Usne + 20 F par 
article pour Outre-Mer par avion et au-dessus de 5 kg nous nous réservons la possibilté (f ajuster le prix de transport enfonction du coût réel de oeluki. Pou bénéfdsr de reoous possibie nous rvitons notre amdble denteie é opter pou 
renvoi en recommandé. A réception des paquets, toute détérioration doit étie signalée. 
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ET CPC HORS SERIE 




i <y .:rj^ 


à fe-fe tL Ck 


?tS*; 


: 


.'ij 


Simple, rapide, efficace : 

Téléchargez les listings publiés dans 
le mensuel Amstar & CPC et dans le 
bimestriel CPC Hors Série. 

Il vous suffit pour cela de notre logi¬ 
ciel ARCADES, et d^un câble de liai¬ 
son minitel-CPC que nous pouvons vous 
fournir. 

Sur 36 15 Arcades, des jeux et des 
utilitaires, du son et du graphisme. 




■H»Il 






PLUS DE 80 
PROGRAMMES 
A VOTRE 
DISPOSITION 




ATTENTION : Seul le câble Arcades fonctionne avec le 
logiciel de téléchargemenL 


A COMMUNICATION 


C’EST NOTRE METIER 




Voir bon de commande page 38. 


















































Media Box Disquettes 5"1/4 

182x178x348 mm ^ 

Réf. 310.501.1 


pour 70 disquettes, livré 
avec séparations et index 


Media Box 
Cassettes i 
Vidéo (L) I 

222x135 
x348 mm ' 
Réf. 310.540.0 


Media Box Mini Cassettes 

1 48x91x348 
Réf. 310.503.3 


pour 16 mini 
cassettes 


pour 9 casettes 
VHS, V2000, Betamax 


Media Box 
Compact Disc 

148x135x348 mm 
Réf; 310.502.6 


pour 13 compacts dises simples 


Media Box 
Disquettes 
W 3"-3"1/2 

221x135x348 mm 
Réf. 310.506.4 


Media Box 
Data Cartridge 

222x135x348 mm 
Réf. 310.518.7 


pour 150 disquettes 


pour 11 Dota Cortridges 

type 3M 


^K^^Media 

^^^Bàx 

Compact 
^ DiscMuIti 

148x177 
x348 mm 
Réf. 100.525.0 
pour 23 CD simples 
ou 11 CD doubles 


Media Box 
Cassettes Vidéo 
F VHS-C 

148x91x348 mm 
Réf. 310.505.7 


Media Box 
Cassettes 
r Vidéos 

148x91x348 mm 
Réf. 310.531.6 




pour 8 cassettes 


pour 12 cassettes 


|^^or^^5^parort/c/eJ 


Media Box 
Photo ^ 


Module serrure 


(bien indiquer la boîte) 


222x135 
x348 mm 
Réf. 310.501.9 


Plaquettes 

couleur 


pour 140 tirages 

format maximum 13x18 plus 


(lot de 3) 


‘ Exemple de 
combinaison des modules 


195 F+port 


SOF+port 


130 F+port 


105 F+port 


145 F* port 


130F+port 


159 F+port 


85_F+port 


85 F+port 


130F+port 


60F+port 


Voir bon de commande page 















































































